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At HAYDEN,The Best Has Gotten Better. 

Sargon, the program that came in first in the Creative Computing 
Microcomputer Chess Tournament, has become Sargon II. The game 
has been vastly improved and now has a faster response time. A new 
Level has been incorporated for beginners. The board is easier to 
pre-set and there is now a Hint mode that provides suggestions from 
the computer. Sargon II took on the maxi-computers in the West 
Coast tournament and finished in the money! Shows more thinking 
power than you ever expected. ~ 



Sargon II 16K Level II Cassette $29.95 (TRS-80) 

Sargon II 24K Cassette Machine Language $29.95 (Apple) 

Sargon II 32K Disk $34.95 (TRS-80) 

Sargon II 48K Disk Machine Language $34.95 (Apple) 
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NEWDOS/80 



Brand new from Apparat, their most powerful DOS ever. EVERYTHING in NEWDOS and 
NEWDOS+ and more: Variable length records (up to 4095 bytes), mix or match your disk drives: 35, 
40 and 77 track drives can be used in any combination — even with 8 inch drives, new security 
boot-up sequence makes it impossible for the unauthorized to BREAK or LIST. "DOS READY" and 
"READY" need never appear, enhanced RENUMBER allows relocation of subroutines, powerful 
program CHAINing, option to PRINT on display and printer simultaneously, execute DOS commands 
— from DOS — without disturbing your resident BASIC program. Put the "DOS of the Eighties" to 
work for you. On disk, with all documentation. $149.95 



NEWDOS 



NEWDOS corrects over 70 errors and omissions in TRSDOS 2.1 and disk BASIC, yet they are 
completely compatible! Programs SAVEd under either system need no modification to work with 
the other. Like going from Level I to Level II: more power, convenience and speed. Use all DOS 
commands (DIR, FREE, RENAME, COPY etc.) from BASIC, AUTO LOAD and RUN a BASIC 
program from power-up, produce variable and constant cross reference tables, OPEN "E" to add to 
the end of a sequential file, send whatever is on the screen to your printer, even in DOS (great for 
DIR), renumber BASIC programs, and more . . . Fully documented; available on disk for only $49.95 



NEWDOS PLUS 



ALL of the above PLUS: Editor/ Assembler for disk, Z-80 Disassembler, LMOFFSET to relocate 
and save SYSTEM tapes to disk, Level I BASIC language with disk I/O, DIRCHECK to check and 
LIST disk directory, SUPERZAP-display/print/modify any location in RAM or on disk (worth the 
price of the entire package when you resurrect that accidentally KILLed file!). NEWDOS+ on disk 
with documentation, just $99.95 
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Zork™ is a computer fantasy of 

ultimate challenge. Unearthly 

creatures guard treasures beyond 

your imagination. Mazes confound 

your quest. So quicken your wits 

and pick. your path carefully 

through the Great Underground 

Empire. The least likely object may 

be the only thing that can save 

your life. 

Yet, you can succeed. Discover 

the 20 treasures of Zork, return 

them to the. Trophy Case and leave 

alive. But bring all the cunning 

and courage you can muster. 

Because in Zork, they take no 

prisoners . . 

Zork, The Great Underground 

Empire, was created by Infocom, 

Inc., and is available for 32K 

Apple® II and II Plus and 32K S- 

80'" Model I Level II disk systems. 

$39.95 
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6 South St.Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 
1-800-258-1790 



When you come back from Zork 

try Arcade Classics a new S-80 

action game featuring Cosmic 

Raiders, Pinball, Rocochet and 

Blockade. A great way to have fun 

without feeding quarters into the 

machines. S-80 cassette $29.95 
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I Don't Think We're in Kansas 

Anymore. . . 




by Mark Pelczarski 

Let's see. . .where to start this 
month? Maybe with the title. I 
realize that I've had some real fits 
of creativity, giving articles titles 
like 'Baseball' and 'Bowling'. 
That's just not done in the 
magazine business; you have to 
add some pizazz, using names like 
'Strike Out!', or 'Gutter Ball'. On 
the way home this evening it 
occurred to me that in infinite 
descriptiveness this column has 
been named 'Editorial' for the last 
seven or eight months. How 
unique! But what else? 'Random 
Ramblings', which seems to be the 
tone of this page, has already been 
used. Being prone to occasional 
insanity, the 'Kansas' idea seemed 
somewhat appropriate, although I 
don't know why. 

It's tough to write editorials. 
The closest I'd come before to 
talking to large groups was 
teaching college classes of a 
hundred or so. There, if you 
realize you've gone off on some 
bizarre monologue, it's easy to 
turn it around and laugh at 
yourself. Here you wind up 
reading what you wrote a month 
and a half ago — and cringe. I've 
just read the November issue 
(that's how far ahead we really do 
work, even though at times it may 
not appear so), and a whole 
section of the editorial was totally 
incoherent because an example of 
some programming statements did 
not quite make it from original 
copy to magazine. What do you 
do? Write 20,000 notes to include 
with the magazine as it gets sent 
out? Nope. Cringe. Another thing 
is, many moons ago I was 
cautioned against over-using 'I' 
(drat — did it again). Then you go 
back and read the thing you wrote 
two months ago and realize 'Oh 
no. There he goes. Preaching 
again.' Oh, well. Cringe. 

It's also difficult to take 
computers too seriously. They're 
useful; sometimes. There also 
amusing; occasionally. But there is 
more to life. Some people get so 
wrapped up and serious about this 
electronic mumble-jumble. Dave 
Albert and I frequently sit around 
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wondering what we're doing 
contributing to this kind of 
propagation. Maybe stating the 
thought in an occasional editorial 
makes me feel better about it. 
Hmmm. By the way, I've got a 
new favorite appliance to make 
fun of — electric hot dog cookers 
are out; electric cookie makers are 
in. 

Some people do carry this fear 
of computers thing too far. You 
may have noticed that my wife, 
Cheryl, has done several 
illustrations for SoftSide (Nepotism 
lives!). Given the two facts that 
she is an artist and I've done some 
graphics-type programs for the 
Apple, people often conclude that 
Cheryl must have lots of fun with 
the computer. Wrong. She won't 
go near it. I did some software for 
a home control unit that would 
allow the computer to adjust the 
working hours of most of my 
appliances. When we left for a 
week I thought it would be a good 
chance to make some use of the 
system, instead of the usual timers. 
Cheryl would have none of that. 
She was afraid that if I left the 
computer on and connected to 
everything, it would call a bunch 
of other computers and they'd 
come over and eat the pizza in the 
refrigerator and steal our 
belongings. That's true. We know 
they can't do that. I think. She's 
afraid now, because I recently 
bought an Atari also. Something 
about the two computers getting 
together and plotting something 
awful. No chance. Yet. 

You may have noticed in the last 
issue a cryptic note at the end of 
the Data Base column that my 
address is in West Chicago, 
Illinois. In fact, that will be my 
address in two weeks, which is a 
month ago when you receive this. I 
am leaving the full-time staff of 
SoftSide to return to our home 
area, just in time to not see the 
Bears in the playoffs. Actually, I 
am getting involved in several 
different computer-related tasks, 
including some software 
development and working on a 
consumer co-op. The 
aforementioned Dave will be 

continued on next page 
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Quick! There's no one 
watching. . .Now is the time for all 
good. . .oops! Heh heh. Hi there, 
even munchkins have to practice, 
you know. Can't have any 
misteaks in between the covers. 

The covers, yes. What lies 
between them this month? Well, 
our featured program this month 
hearkens back to the days when 
the only drilling that took place in 
the North Sea was carried out by 
submarines and squadrons of 
aircraft. "Convoy" is a program 
for both the S-80 and the Apple, 



continued from previous page 

taking over where I leave off 
(whatever I was doing at the time), 
but I've promised to still write for 
the magazine on a regular basis. 
With the transition SoftSide's 
made from a year ago to today, 
and with it still growing, it would 
be hard to stay away. ^% 



with Atari and Pet versions in the 
works, written by a group of our 
neighbors to the north, Ontario 
way. You are the Allied Captain, 
trying to get supplies to the 
Russians. The Germans, of course, 
are trying to deep-six your boats. 

Chris Freund, of "Invaders" 
and "X-Wing Fighter 11" fame has 
another program for you, this one 
entitled "Ship Destroyer." We 
wonder who is going to come up 
with a program to repair all the 
things Chris has us destroying. . .but 
then we're not paid to think. 

The same folks that are bringing 
you "Convoy" this month are also 
including a musical treat for Atari 
owners: A Bach Fugue, graphics 
and all. It's majestic. 

Our very own Missouri 
wunderkind, Phil Case, has 
whipped up a couple of Heavy 
Stuff articles this month: "Using 
Those Hidden Commands," and 
"Editing Supergraphics." We'd 



tell you more, but were not here to 
think. . . 

And then there's "Computer 
Space" for Apple owners. No, it's 
not about a California computer 
that just underwent EST, it's a 
space arcade game. It's just too 
hard to raise a consciousness that 
is imprinted on a circuit board. 
Maybe Transactional Analysis. . . 

The Yoho fellow discusses 
compunovels (adventures) in this 
issue, and even includes a One- 
Line review of a One-Line 
adventure by, you guessed it, the 
Missouri Miracle. 
Oh yes, the SoftSide Continuing 
Data Base does just that: 
Continues. 

Plus we have reviews and Ms. 
Truckenbrod's Graphics column 
on the rotation of three- 
dimensional figures, and lots of 
other good stuff. So read on! 

Until next month, a merry ^ 
munchkin farewell to you all. ^^ 
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ORDER TOLL FREE 

1-800-258-1790 

(in NH call 673-5144) 



SlMUlATOK 

a >» ®Mlo)lJOGIC 

The T80-FS 1 flight simulator from subLOGIC combines fine graphics and 
accurate flight characteristics to give you a real time simulator on a home 
computer. The instrument panel contains all the instruments required 
under part 91 of the Federal Aviation Regulations for visual flight. On top 
of that, the FS 1 includes a stall warning, turn indicator, radar map, bomb 
and ammo indicators, and control position indicators. 

Included in the package is British Ace 30 Aerial Battle, a program that 
permits you, after gaining enough confidence, to take on enemy planes and 
try to wipe out a fuel depot. 

S-80 Cassette, 16K Machine Language $25.00 

16K Apple Cassette $25.00 

16K Apple Disk $33.50 
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ATTENTION 
AUTHORS 



SoftSide Magazine, the leader in 
the field of BASIC software 
programming for home computer 
applications, is actively seeking 
program and article submissions 
for the more popular home 
microcomputers, as well as for 
product reviews. This is your 
chance to make some extra cash 
and become famous in the 
progress! 

We are interested in programs 
written in BASIC with any 
alternate language subroutines 
worked into the program only 
within the frEwnework of BASIC. 
Games and educational software, 
as well as any other applications 
for the home computer user are 
preferred, although we will 
consider virtually any type of 
program. 



We are looking for well-written, 
informed reviews of all software 
for the popular home computers 
for publication in the magazine. 
Reviews should take into 
consideration all aspects of a 
particular software package, from 
speed of execution to programming 
creativity to the estimated length 
of time that the product will hold 
the consumer's interest. 

When submitting a program, 
please be sure to include full 
documentation of subroutines and 
a list of variables, as well as a 
brief article describing the 
program. All such text, as well as 
article and product review 
submissions, should be typewritten 
and double-spaced. Programs 
should be submitted on a good 
cassette or disk, and should 
function under both Level II and 
Disk BASIC. 

Send to: 

SoftSide Publications, 
Submissions Dept., 
6 South St., 
Milford, N.H. 03055 

Be sure to send for our free 
Author's Guide. 

We regret that due to the 
volume of submissions we receive, 
we are unable to return your ^^ 
cassettes or disks. -^ 



OUTGOING MAIL 




by Phillip Case 

SOFTWARE PIRATE: Story of 
the times. 

A letter we published recently 
from a software pirate has been 
the focal point of a good deal of 
controversy. We have received 
many letters on the topic of 
software piracy since then, both 
for and against the viewpoint 
espoused by the person who signed 
himself "The Software Pirate." In 
the interest of clarity we have 
decided to summarize the episode 
thus far. 

The word "piracy" causes a wide 
variety of response in different 
people. To some, the word piracy 
merely adds bad connotations to 
an otherwise normal practice. To 
others, piracy is a synonym for 
theft. But to the average person, 
including myself, piracy falls 
somewhere in between. 

The real question is what is 
piracy. Certainly, selling software 
without the author's permission is 
piracy. However, does two people 
sharing the cost of a program 
constitute a form of piracy? 

Some computer stores engage in 
the practice of transferring a tape 
program to disk for a customer if 
he has a disk system. Is this 
another form of piracy? What if 
the programs are sold both on tape 
AND on disk? 

In the matter of the Software 
Pirate letter, many of our readers 
wrote to attack the practices, 
attitudes, and even the intelligence 
of the pirate — citing the improper 
use of grammar as a sign of low 
intelligence. The publication of his 
letter obviously touched on some 
very sensitive spots. 

Others wrote to support the 
pirate, saying the existence of the 
software industry was dependent 
upon the trading of software 
between individuals. 

The pirate himself wrote a 
second letter suggesting that the 
loss of good authors due to the 
copying of their software without 
permission was no real problem to 
the industry. 

The piracy of software hurts 
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authors more than any other 
individual facet of the industry. 
Industry estimates are that for 
every copy of a game program 
sold, 20 are pirated. This problem 
makes software companies go to 
the added expense of good 
documentation, special machine 
language loader routines, and the 
lowering of prices to inspire the 
individual to purchase an original 
rather than a copy. 

The program "Interlude" has a 
piracy rate of almost zero due to 
the documentation being separate 
from the prograun. This makes it 
less convienent for the user. 
Companies Uke Acorn and 
Sublogic have incorporated special 
loaders in order to reduce the 
piracy rate, but this also makes 
loading those tapes a real pain. 

The long range solution may be 
something like SOURCE, where 
the user calls up the software 
company and plays the game 
on-line for a membership fee. 
However, for the present, we are 
going to have to put up with the 
problem simply because the 
average person isn't going to 
refuse when offered a copy of 
"this neat new program.'^ Qt, 
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INPUT POLICY 

SoftSide Magazine welcomes 
your comments and thoughts on 
both the magazine and the field of 
microcomputing. We try to publish 
as many of our readers' letters 
each issue as we can. 



For the sake of clarity and 
legibility, all letters should be 
typewritten and double-spaced. 
Send your letters to: 

SoftSide Publications, 

Input 

6 South St., 

Milford, N.H. 03055 

We reserve the right to edit any 
letters prior to publication. 



INPUT 



Dear SoftSide: 

I am frankly disgusted at this 
'software pirate' and his weak excuses 
for justifying piracy. I hope that the 
more intelligent caliber of SoftSide 
readers do not engage in it. The 
'pirate' is probably not too intelligent 
anyway, as seen by his frequent 
grammatical errors (ie. your instead of 
you're, they're instead of their, etc.) 

I do have one request, though. Let 
us know who he is. If he can stand for 
his beliefs anonymously, then why 
shouldn't he be able to stand for them 
otherwise? I don't wish to publicize the 
'pirate's' view, but I think that readers 
have the right to know his name. 
Ed Ting 
Lexington, Ky 

Dear SoftSide: 
I just received volume III No. One 

— and after reading the letter to input 
from Mr. B. Thompson I felt I had to 
add my two cents. Like Thompson, I 
at first felt like I'd been ripped off!! 

— But after the third issue of the 
modified edition I can now see that 
SoftSide is still the best publication for 
program listings. . . . 

I feel I can say this as I subscribe to: 
SoftSide, 80-Microconiputing, Creative 
Computing, 80-Us., Personal 
Computing, TRS-80 monthly news, 
Byte, Computing Today, (The last 
three are from the United Kingdom). 

I do however have one bone to pick 
with you (ya gotta take the bitter with 
the sweet). 

Why ??? Do you place the address 
sticker on the front of the magazine 
(over the text which includes titles 
contained within)??? How's about 
puttin' them back on the back cover 
like you did with the old format — 
please!!! 

Other than that you got a great 
magazine. Keep up the good work!! 
Sincerely, 

William H. Tooker 
Gretna, La. 

Editors Reply: 

We didn't know about the mailing 
labels until we got a few complaints. 
The magazines are mailed by an 
outside company — we've outgrown 
our own facilities. We'll try to take 
care of it. 
Dear Sir: 

I have read with interest and 
amusement the recent letters from 
Apple and S-80 owners concerning the 
new combined format of SoftSide. 
Here's another viewpoint. As a recent 
purchaser of an Atari 800 and a recent 
subscriber to SoftSide, I am more than 
a little thrilled to find a magazine like 
yours available. There is precious little 
good software available for the Atari 
at this time that doesn't come from 



Atari on those demonic unreachable 
plug-in ROM cartridges! I know that it 
is only a matter of time and numbers 
of owners before this is rectified, but 
in the meantime, here I am looking for 
clever programs and clever 
programming ideas. Your magazine fits 
the bill! I have enjoyed nearly every 
agonizing hour of typing in the 
programs (at least I do after I see the 
program run with the fantastic 
graphics.) My only complaint is that, 
inspite of your claim that the magazine 
listings are exact copies of printouts of 
correctly running programs, I have 
found several errors that were not easy 
for a novice such as myself to correct. 
It would be appreciated if you would 
put in a little more effort to keep these 
phantom typos from reaching us poor 
readers. 

Keep up the generally good work, 
and I don't mind the Apple or 8-80 
programs in my Atari magazine at all! 
Yours truly, 
Richard Kushner 
Editors Reply: 

Sorry about the listings. The Atari is 
the most recent addition to our lineups 
as such we are still hunting for the best 
printer for Atari listings. 

Dear SoftSide, 

Ordinarily, I wouldn't bother 
writing, but I would like to reply to 
Brian L. Thompson's letter in your 
October issue. 

First of all, Mr. Thompson, don't 
sell your Apple on the basis of not 
having a magazine devoted to it's 
support. I agree that SoftSide was 
better as it was, and I preferred it that 
way, but only Apple Inc. can afford to 
remain specialized to the Apple, and 
even they have branched out in their 
own way when they introduced the 
Z-80 firmware card. Branching out is 
not necessarily in search of the 
almighty $$, but can be for the 
purpose of better support for the 
people, which is what SoftSide thinks 
they are doing. 

But no matter what their motives 
are, there are scores of Apple clubs in 
the U.S. that are excellent sources of 
software. It isn't necessary to live in 
San Francisco to join one. Any Apple 
dealer or retailer should be able to give 
you a line on clubs and hardware 
sources for the Apple, and if they 
can't, then I can, as 1 regularly receive 
trade magazines and product 
catalogues for all the computers on the 
market. 

And the TANDY corporation will 
not soon own the world. Take heart 
that there are more personal ads selling 
used S-80s than for any other 
computer. Also take heart that one 
dealer offers discounts for S-80s so you 
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can trade up to a 'better' system. 

Now I don't wish to promote the 
"Civil War" between the different 
computer users, because a better 
system isn't always an Apple. It all 
depends on what the person wants, and 
I, for one, am glad that there is a 
choice, although sooner or later there 
will have to be a standard. 

Personally, I chose an Apple for use 
in my home, but as soon as I can 
afford it, I'll take an INTERTEC 
Superbrain for use in business. My 
Apple gets a lot of use, and not just 
for games, and I'll never stop using it. 

In reply to everyone else who wrote 
in to SoftSide. . .S-80s are not 
TRASH, and Apples are not rotten. 
I'd hate to see people fighting over 
which one is best. The machines don't 
care, why should we? Some people 
bought S-80s for the price, some 
bought because others did, and some 
bought because they genuinely liked 
the machine. The same goes for the 
Apple. But each are good computers in 
their own right, and like everything 
else manufactured by man, are soon 
replaced by "better" models. Such is 
progress. 

And everyone please give TANDY 
its due credit for showing the world 
that it is possible to build a decent 
computer system at a cost that most 
average people can manage to afford. 
Although I've only mentioned S-80 and 
Apple, the people at ATARI have 
contributed in their own way with 
graphics and in lower prices. 

But as to the magazine SoftSide. . . . 
It should have stayed as it was because 
then it was like a supplement to the 
owner's manual of either machine. A 
monthly pocketbook update if you 
like. The magazine, in it's present 
format, has become like so many 
others that feature programs for 
different computers. SoftSide was in a 
class by itself before, but not now. I 
think you should go back to seperate 
editions for Apple, S-80, Atari, and 
whatever computer you might support 
in the future. 

If anyone is sincerely interested in 
what 'RIVAL' computer users are 
doing, then they'll subscribe to other 
general interest magazines and find 
out. Perhaps a few will even subscribe 
to other editions of SoftSide. 

Please reconsider gentlemen. I, 
myself, won't be renewing my 
subscription because I get enough 
general purpose magazines as it is. I'm 
only one person, but obviously I'm not 
alone in my feelings that the old style 
SoftSide was worth subscribing to, 
where the new style isn't. 

Sincerely, 
John K. Trumbull 
Charleroi, Pa. 
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ZORK" is a computer fantasy of ultimate challenge. 
Unearthly creatures guard treasures beyond your imagination. 
Mazes confound your quest. So quicken your wits and pick 
your path carefully through the Great Underground Empire. 
The least likely object may be the only thing that can save your 
life. 

Yet, you can succeed. Discover the 20 treasures of Zork, 
return them to the Trophy Case and leave alive. But bring all the 
cunning and courage you can muster. Because in Zork, they 
take no prisoners. . . 

Zork, The Great Underground Empire, was created by 
Infocom, Inc., and is available for 32K Apple* II and II Plus and 
32K S-80 Model I Level II disk systems. 

Arcade Classics is a new S-80 action game featuring Cosmic 
Raiders, Pinball, Rocochet and Blockade. A great way to have 
fun without feeding quarters into the machines. 

Zork: 

Apple Disk $39.95 

S-80 Disk $39.95 

Arcade Classics: 

S-80 Cassette $29.95 

#T1 OSBORNE 

^— ^A McGraw-Hill Company 



SOME COMMON BASIC 
PEOGRAMS 



by Lon Poole and Mary Borchers 

Some Common BASIC programa is a collection of 76 
programs you will not have to write for yourself. Each program 
is presented with BASIC source code, operating instructions, 
and verbal description. If you're a student or a beginning 
programmer, you can learn from this book what well designed 
and documented programs look like. 
Book $12.50 + $1 



by Adam Osborne 

Take a second look at your calculator or digital watch. These 
simple devices are the beginning of what promises — or 
threatens — to be the next industrial revolution; it will be based 
on microelectronics. Within the next decade, roughly half of 



today's jobs will change drastically, or disappear altogether. Will 
the coming years prove to be a dream or nightmare? 
Understanding the facts of microelectronic advancements 
could make the difference. 

Will Radio Shack challenge IBM? 

Will th post office disappear by the year 2000? 

It sounds strange, but it may be true. Rannins Wild shows 
how the microelectronics revolution came about, and gives an 
insider's look into how it's shaping your future. 

Businessperson, salesperson, student, everyone who's 
concerned with the future, needs to read Rannias Wild. It's 
written for the layperson to help you understand the "whys" and 
"hows" of this amazing new technology. And it sounds an 
urgent warning to us all. 

Book $3.95 + $1 

You needn't know anything about assembly language 
programming to use our Assemblv Langaage 
Programming Series. Each book is a straightforward self- 
teaching textbook that is both concise and easy to understand. 
All our ALP books are written in a standard format and contain 
the entire instruction set for the specific microprocessor. 

Each book explains assembly language programming, 
describing the function of assemblers and assembly 
instructions, and discusses basic software development 
concepts. A special section on structured programming rounds 
out the discussion of programming examples (from simple 
memory loops to complete rudimentary design projects). Each 
book presents a large number of fully debugged practical 
programming examples. 

Z80 AasemUv Language Programming 

S-80 users can save both time and computer memory by 
learning to program in assembly language. Osborne's Z-SO 
Aasemblv Language Programming will show you how. 
Book $16.99 +$1 

6502 Assembly Language Programming 

Teach your CBM or Apple computer some new tricks. 
Increase the capabilities and performance of your PET/CBMor 
Apple computer by learning to program in assembly language. 
Book $16.99 + $1 
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by Carroll Donahue and Janice K. Enger 

The PET/CBM Personal Computer Guide is a step- 
by-step guide that assumes no prior knowledge of computers. If 
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you can read English, you can use this book. 

If you're considering buying any personal computer, you can 
use this book to determine the capabilities and limitations of the 
very |X)pular Commodore PET. 

If you've just bought a PET/CBM, this is the book you must 
have to really understand your computer. 

If you're experienced with CBM computers youll find this 
book to be very valuable. For the first time, you'll find all the 
diverse information on CBM computers in one place. The 
PET/CBM Personal Computer Guide will reveal many 
things about your computer that you always wanted to know. 
After you've used the guide you'll wonder how you could have 
done without it. 

The PET/CBM Personal Computer Guide contains a 
wealth of information on everything from keyboard variations to 
a detailed description of PET memory. Included arc: Complete 
operating instructions for keyboard, tape cassette, and disk 
units; Descriptions of all PET/CBM BASIC statements; 
Optimal PET/CBM BASIC programming techniques, including 
input/output programming, file handling, strings, random 
numbers, and screen editing; Solutions to many programming 
problems, CBM computer capabilities, and limitations. 

Book $15.00 + $1 

AN INTRODUCTION 

MICROCOMPUTERS 

VOLUME 1 

- Basic Concepts (Revise 




by Adam Osborne 

Using concepts that are common to all microprocessor 
systems. Volume 1 develops a detailed picture of what a 
microcomputer can do, how it does what it does, and how the 
particular capabilities of microcomputers can best be applied in 
any practical environment. 

Basic Concepts presents the fundamental logic 
framework uf)on which microcomputer systems are built, so 
that the reader can evaluate the applicability of microcomputers 
to any practical problem. 

This new revised second edition incorporates all recent 
microprocessor developments. Basic microprocessor concepts 
are discussed in terms of modern hardware configurations, and 
examples of common applications are drawn from today's most 
fxjpular devices. For example, the logic instructions and 
programming concepts of the new 16-bit microprocessors are 
discussed in detail, and current logic distribution configurations 
are used throughout the text with numerous illustrations and 
examples. 

Programming mnemonics conform to the newly proposed 
IEEE standard. This is the first book in print to use them, a 
feature which will be appreciated by beginners and 
professionals alike. 

This second edition is the most comprehensive and up-to- 
date introduction to microprocessor systems available 
anywhere. 

Book $12.50 + $1 



MfeLOGIC 



AIR FLIGHT SIMULATOR 



The T80-FS1 from SubLOGIC combines fine graphics and 
accurate flight characteristics to give you a real time simulator 
on a home computer. The instrument panel contains all the 
instruments required under Part 91 of the Federal Aviation 
Regulations for visual flight. On top of that, the FSl includes a 
stall warning, turn indicator, radar map, bomb and ammo 
indicators, and control position indicators. 

Included in the package is British Ace 3D Aerial Battle, a 
program that permits you, after gaining confidence, to take on 
enemy planes and try to wipe out a fuel depot. 

S-80 Cassette, 16K Machine Language $25.00 

16K Apple Cassette $25.00 

32K Apple Disk $33.50 

/HICi^QSOfr 

|OLYMPIC DECATHLON 

Grab your fiberglass vaulting poles and javelins, strap on your 
cleats and hang on to your hat; It's OLYMPIC DECATHLON 
from Microsoft, the folks that brought you the "Original 
Adventure" for the microcomputer. 

"OLYMPIC DECATHLON" consists of ten athletic events 
carefully designed to simulate the real thing. The graphics are 
dazzling, and the variety is enough to keep even the most 
rapidly bored gamer glued to the keyboard. 

This is more than a simple game, it's a true simulation. The 
only difference is that the skill, timing, and reflexes necessary for 
success all lie in your manual dexterity and your hand-to-eye 
coordination. 

S-80 Level I or 0, 16K Cassette $24.95 

S-80 32K Disk $24.95 

JOHN WILEY & SONS, Inc. 





^ WHY DO YOU NEED A 
PERSONAL COMPUTER 

by Lance Levcnthal 

No competing book includes any discussion of how to 
program in BASIC, much less an application -oriented 
discussion. None includes any discussion of the software 
problem. Nor does any do more than mention different 
peripherals, interfaces, etc. There is no insight into what makes 
things useful, why some cost far more than others, and why 
some are far more popular than others. No competing book 
discusses maintenance or descibes the various sources of 
information in detail. 

Book $8.95 + $1 



— ^ ■ DOOK 

breeze cofflpuiiA9 on-line systems 



If you thought SuperZap was something, wait until you get 
your hands on SUPER UTILITY! Possibly the most powerful 
utility program on the market for your S-80, SUPER UTILITY 
permits you to: Automatically repair a scrambled directory by 
fixing both HIT and GAT tables; Format a disk without erasing 
data files; Format or backup virtually any disk except itself; 
Recover killed files; Purge a disk; Execute a complete Directory 
check; Repair bootstrap function; Totally ROM independent; 
Plus other features too numerous to mention. 
S-80 16K Disk $49.95 



by Jay Sullivan and K«n Williams 

HI-RES FOOTBALL is a real-time action game requiring a 
combination of skill and strategy. You and your opponent call 
the plays and control the movement of the offensive and 
defensive teams during the course of play. While each play is in 
progress the Quarterback can decide to either run or pass, and 
the defense must react quickly. You can play against either a 
human opponent or the computer. Good luck 

48K/ Apple Disk $39.95 
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Grab your fiberglass vaulting poles and javelins, strap on 
your cleats and hang, on to your hat: It's OLYMPIC 
DECATHLON from Microsoft, the folks that brought you the 
"Original Adventure" for the microcomputer. 
"Olympic Decathlon" consists of ten athletic events 
carefully designed to simulate the real thing. The graphics 
are dazzling, and the variety is enough to keep even the 
most rapidly bored gamer glued to the keyboard. 
This is more than a simple game, it's a true simulation. 
The only difference is that the skill, timing and reflexes 
necessary for success all lie in your manual dexterity and 
your hand-to-eye coordination. 

S-80 Level I or II, 16K Cassette $24.95 

S-80 32K Disk $24.95 



6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) j—^ ^n^^ ^^^^ 




T5€:HnRDSID€ 



]0 



SoftSide JANUARY. 1981 







by Phelps Gates 




Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power 
of this language is in its strong mathematical operations, especially with regard to matrices and vectors. Programs re- 
quiring matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC 
are solved quickly and with minimal effort in APL. 

To aid in learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step 
through the various programming techniques involved with APL. These lessons act as a tutor which will have you "talk- 
ing APL" in no time. Also available is the book, "APL: An Interactive Approach," which reinforces many of the examples 
given In the lessons and provides additional insight into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into 
current ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; 
Easy editing within FUNCTION lines; Latent expression (FUNCTION can "come up running"when loaded); Tracing of 
function execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays 
may have up to 63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and, assign, branch, catenate, ceiling, chr$/asc, cir- 
cular, combinatorial, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, 
floor, format, grade down, grade up, greater, greater/equal, index generator, indexing, index of, inner product, label, 
less, less/equal, logarithm, maximum, member, minimum, multiply, nand, negate, nor, not, not equal, or, outer product, 
peek, poke, quad, quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, 
system, subtract, take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (48K recommended) includes APL-80, Five workshapes of lessons, 
instruction manual. 

Price $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 
Transpositions, format, and inner product not implemented. Reduced domain for some functions, 6 digit accuracy. 

Price $14.95 on cassette 

APL: An Interactive Approach 

Price $16.95 ($3.00 shipping charge) 



LIMITATIONS 

Due to the absence of the special APL character set on the TRS-80^M, APL-60 uses shifted letters to represent the various APL characters. 

In addition to the keyboard limitations, lamination, domino, and matrix inverse are not implemented but can be derived with user-defined functions. 

Multiple specifications must be split into two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. 

Reduction and reshape (p) are not permitted for empty arguments; the argument of add/drop may not be scalar; empty indices are not permitted. 

A quad (q) can't be typed in response to a quad (nor can the name of a function which itself gets input from a quad). Quote-quad (m) Is permitted. 

No more than 32 user functions can be defined in a single workspace and a function may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 

In the tape version, arrays are limited to five (5) dimensions. 
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ORDER TOLL FREE: 1-800-258-1790 
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by Lance Micklus 

Getting a Bit Serious - Part 1 

"There just isn't any money in 
computer programming. 
Computers are getting so easy to 
program. Just about anybody will 
be able to write any program they 
need." That's what I said to 
myself in March of 1969 when I 
was faced with the choice of 
returning to I.B.M. in 
Poughkeepsie from an educational 
leave of absence, or going into 
radio broadcasting full-time as a 
disk jockey. 

Could somebody please tell me 
what I'm doing here now? 

The truth of the matter is, 
Wolfman Jack was far more 
successful than I was. Lance 
Michaels (my radio name) just 
never made it to the big time radio 
stations. And what of my 
predictions about the future for a 
computer programmer? Well, there 
was one thing I overlooked. True, 
programming a computer would 
become easier. But people would 
then expect computers to do more 
complicated tasks. This would 
create a continuing need for highly 
skilled people to develop software. 

Actually, I didn't just decide, 
one day, to change my mind and 
go back to the world of bits and 
bytes. I kind of fell into it. The 
path has not been an easy one. I 
had to quickly learn an awful lot 
of things the hard way. Some of 
these things have very little to do 
with computers. I'm surprised I've 
gotten as far as I have. 

It seems to me there must be an 
easier way to learn the many hard 
lessons I learned. It should be 
written down somewhere but it 
isn't. Okay. It's time it is and I'm 
volunteering to do the job. That's 
what this series of articles called 
"Getting a Bit Serious" is going 
to be all about. 

Installments will appear about 
every other month. I'm going to 
try to cover all of the areas of the 
business side of computers that I 
think people either want to or 
should know about. Since my 
background is S-80 software, there 

12 



can't help but be a little bias in 
that direction. But I'll try to make 
these articles as general as possible 
so that the information will be 
applicable to other makes of 
computers and useful to those who 
have a hardware interest as well. 
In laying down a plan for this 
series, I feel that I first must make 
sure we all understand some 
fundamental theory. So, that will 
come first. Later, I will apply the 
theory to actual events, often using 
my own experiences, good and 
bad, as examples. 

BUSINESS TERMS 

You will not survive very long in 
this business without 
understanding the meaning of the 
business terms - buzz words if you 
prefer- that are commonly used. 
The most important single word is 
"margin." 

Just about everything that is 
sold has a retail price. Sometimes, 
this is called the manufacturer's 
suggested retail price or the list 
price. You can think of the list 
price, which is what I will call it 
here, as being the size of a pie. For 
the sake of an example, let's say 
we are talking about an item with 
a hst price of $20.00. Then the size 
of the pie is $20.00. No one 
involved in the sale of the product 
can make more than $20.00 
because that's all the money the 
consumer is going to pay. Or to 
put it another way, at stake is 
$20.00 cash. 

The question now becomes a 
matter of how the pie will be 
divided. The term "margin" refers 
to the size of the pie that's yours. 
It is often expressed as a 
percentage, but sometimes it is also 
expressed in dollar amounts. 

Taking our $20.00 item, here's 
the way the margins might break 
down. The cost of manufacturing 
the item is $5.00. So, the 
manufacturer's margin is 75%, or 
$15.00, of the pie to work with. 
The remaining 25%, or $5.00, is 
not his because that's his cost of 
manufacturing the item. 

The manufacturer sells the item 
to a store at $10.00 apiece. This 
means the store is working on a 
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50% margin and that the store 
now has 50% of the pie to work 
with. In dollars, that works out to 
$10.00. It also tells us that the 
manufacturer is working on a 
profit margin of 25%. Looking at 
it another way, the manufacturer 
has 75% of the pie, of which he is 
selling 50% to the retailer. 25% is 
his cost, and 25% is his profit. 

The retailer now sells to the end 
user at $20.00 which means the 
end user is buying on a 100% 
margin. This leaves the retailer 
with a profit margin of 50% , or 
$10, per item. 

Looking at the pie, we see that it 
is divided up as follows: 

25% = $5.00= Manufacturing 

Costs 

25% = $5.00 = Profit to 

Manufacturer 

50% = $10.00 Profit to Retailer 

100% = $20.00 = List price 

The nice thing about working 
with margins is the fact that 
they're so neat. Given the Hst price 
and the margins, you can easily see 
everybody's piece of the action. 

DISTRIBUTION 

The next thing we need to 
understand is how the products we 
buy get to us. Various industries 
distribute products in several 
different ways. What I am going 
to outline here is the classic 
distribution system. 

The manufacturer never sells 
directly to the end user. The 
manufacturer wants to deal in 
extremely large quanities but offers 
an excellent margin in return. In 
some industries, the manufacturer 
will sell to anyone who wants to 
buy in large enough quantities. In 
other industries the manufacturer 
sells only to specific distributors 
who have a territory that is 
exclusively theirs. 

The distributor, in turn, sells 
either directly to the retail store, or 
to a wholesale house. If the latter, 
then the wholesale house sells to 
the retail store. Thus, a maximum 
of four organizations — 
manufacturer, distributor, 
wholesaler, retailer — are 



involved, each getting his cut. 

The distributor must get an 
excellent margin to work with so 
that even with his markup, he can 
still offer good margins to those 
further on down the distribution 
chain. The distributor's profit 
margin is usually very small 
— perhaps only 10% — but his 
volume is extremely high, which 
makes it possible for him to make 
enough money. The most 
important thing to keep in mind is 
that the job of the distributor is to 
get the product to the retailer. 

The wholesaler differs from the 
distributor in two respects. First, he 
buyjS in smaller quantities than a 
distributor. In fact, he almost 
always buys from a distributor and 
almost never directly from the 
manufacturer. Second, the job of 
the wholesaler is to represent a 
group of retail purchasers who he 
serves. Often, small retailers can 
only buy in very small quantities. 
Individually, they can't turn over a 
large enough volume to get a 
decent margin. By selling to these 
many small retailers, the 
wholesaler can pool together 
enough orders so that he can get a 
good enough margin to sell to the 
small retailer at a better price than 
that retailer could get on his own. 

Television sets might make a 
good example. The local TV repair 
shop wants to be able to buy in 
quantities of only a couple of sets 
at a time. A large department store 
wants to buy several of the same 
model in one order. As a result, 
the department store can buy 
directly from a distributor. The 
local TV shop cannot because the 
volume is too small. In order to 
get a decent price, the local TV 
shop buys from a wholesaler. Since 
the wholesaler represents a pool of 
orders, he can go to the distributor 
and buy in quantities large enough 
to get a good margin to work with. 
The wholesaler is now in a position 
to turn the merchandise around 
and to sell it to the small local TV 
shop and still give the TV shop a 
decent margin to live with. Using 
this scenario, it isn't too hard to 
understand why a small retailer 
might complain that the big 
discount houses are seUing at or 
near his cost. 

When your name is Sears, 
Roebuck, and Company, then the 
rules change. Sears buys television 
sets in such large quantities that 
they can buy directly from the 
manufacturer and can even get 
special models made. This is an 



interesting approach to marketing. 
On the one hand. Sears is probably 
not getting quite as good a price as 
they would if they bought the 
regular stock of R.C.A. television 
sets. But Sears gains a couple of 
advantages, too. First, they can 
now sell their own unique brand of 
television sets without going into 
the TV business. Second, they can 
retail that set at a good price 
because their distribution system is 
very efficient. Third, they avoid 
the situation where the consumer is 
comparing the price of two 
identical television sets. Instead, 
the consumer is comparing two 
similar sets. Finally, they can tie in 
their own reputation for quality 
products rather than relying on 
R.C.A. 's reputation for producing 
a good television set. 

There are many variations to the 
classic distribution system outlined 
above, so it should not be too 
surprising to find out that the 
existing distribution systems for 
microcomputer products do not fit 
the mold perfectly. The biggest 
problem is that our industry is very 
small compared to others. Just 
think about how many electric 
shavers, cameras, television sets, 
and phonograph records are sold 
in a year, then compare that to the 
total output of all of the 
microcomputer products sold in a 
year. Believe me, R.C.A. alone 
produces more TV sets in one year 
than the combined output of every 
microcomputer manufacturer ever 
since day one. We're just a little 
industry. 

To compensate, the distribution 
system must be modified to 
accomodate smaller volumes. In 
the case of hardware, this means 
eliminating the distributor and 
selling directly to the retailer or to 
wholesale houses. While some 
manufacturers are trying to put the 
distributor into their marketing 
system, they are at a disadvantage 
because they're trying to use big 
marketing techniques in a small 
market. 

Most microcomputer 
manufacturers will sell directly to a 
retail outlet, sometimes in 
quantities of as few as one. It 
depends on the products. These 
small sales are typically made with 
a 30% margin. For those who wish 
to be wholesalers and buy in bigger 
quantities — perhaps 25 units or 
more — the margins can be as high 
as 40%. This puts the wholesaler 
in the position of offering the 
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retail outlet a 30% margin, giving 
the wholesaler a 10% profit 
margin. Ten per cent may not 
sound like much, but remember 
that 10% of $1,000 is $100 profit. 
So long as you have a large 
volume, it adds up. The other 
interesting thing to note about 
these figures is that the retail outlet 
can get as good a margin directly 
from the manufacturer as he can 
from the wholesaler. 

There are some other interesting 
things these figures tell us. If 
you're buying a piece of hardware, 
about the best deal you could ever 
expect to get is 20% off list price, 
which is rare. This assumes that 
the dealer is a big one who is 
buying in large enough quantities 
that he can get a 40% margin to 
work with and is willing to be a 
discount house that sells at 20% 
off list price. Simple arithmetic 
tells us, then, that such a dealer is 
working on a 20% profit margin 
which might be enough if he can 
generate the sales to support it. 
More than likely, if the dealer is a 
big one, he is buying at a 40% 
margin but still works on a 30% 
profit margin like everybody else. 
That's why 10% off list price is 
much more common among the 
big computer stores. 

In the software Hne, the margins 
are slightly better. The biggest 
customers like TSE, Quality 
Software Distributors, Adventure 
International, and so on, can get 
50% margins on the software they 
buy. The smaller computer stores 
who buy from these large 
companies get 40% margins. Most 
of the software producers will also 
sell directly to the small computer 
store on a 40% margin. So, again, 
we see that the small computer 
store does just as well from the 
wholesale house as by going 
directly to the manufacturer. 

The obvious question at this 
point is why anyone would rather 
buy from a wholesaler instead of 
directly from the producer. 
Generally, the difference is in 
convenience and terms. To use an 
example, I recently contacted the 
Data Errors Unlimited shop to buy 
some software for my own mail 
order business. Being a dealer, I 
can get a 40% discount on their 
products provided I buy at least 
ten units each. My interest was in 
only one of their software products 
called "Parity Error." 
Having bought one to try it out, I 
feel that 1 could probably sell a 

continued on next page 
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few of these programs, but I'd 
rather just start by buying only 
five of them instead of ten. 
Another alternative would be to 
buy five "Parity Error" 
programs and five "Zap-Zap" 
programs to make ten. Then I 
talked to my favorite wholesale 
house and found that he would 
also sell me Data Errors 
Unlimited's "Parity Errors" 
program on a 40% margin in any 
quantity. In addition to that, I can 
also buy any TSE, 80-US, Small 
System Software, SBSG, RACET, 
and a dozen other products on a 
40% margin an any quantity. 
Unless I want to try to buy in big 
quantities to get 50% margins, I'm 
better off dealing with my 
wholesaler rather than with each 
individual manufacturer. In this 
case, I did, so I could buy only 
what I wanted in the quantities I 
wanted. 

Earlier, I mentioned Sears to 
show you how a single large buyer 
changes the picture. In our 
industry, companies like Radio 
Shack often act like Sears does. 
The problem is that Radio Shack 
can only think in big market 
terms. When it works, they can do 
as well as Sears does with 
television sets. 

Take, for example, a portable 
AM pocket radio. Such a thing 
might be made by Sony in Japan. 
Sony thinks just like Radio Shack 
— in big market terms. This means 
Radio Shack can get good prices 
on a customized Sony radio with 
Radio Shack's name on it. 

The problem arises when Radio 
Shack tries to apply this same big 
market technique to a small 
market. The companies that are 
making 5-inch disk drives and 
hobbyist printers think small 
market because that's where their 
business is. Such a company thinks 
in terms of a 40% margin for their 
biggest buyers and prices 
accordingly. To apply big market 
techniques and use their own 
efficient distribution system, Radio 
Shack might have to get at least a 
60% margin just to retail it at the 
same price as the local computer 
store. Thus, it is easy to see how 
and why some Radio Shack 
products can be more expensive 
than their brand name 
counterparts. Ironically, if each 
Radio Shack store bought some of 
these products the way the rest of 
us do, they would then be working 
within the small market distribution 
system and would be able to sell 
14 



the same product for less than they 
can from their own highly efficient 
large market distribution system. 
WHAT YOU CAN LEARN 
FROM A MOUSE 

I guess it's no great secret that I 
have an obsession with mice. I 
have stuffed mice, wooden mice, 
even a mouse made out of coconut 
— mice all over my home and 
office. I also have a real live white 
mouse in a cage in my office. All 
of these mice serve as a constant 
reminder to me that America has 
been told a great he about small 
enterprise. The saying goes, "If 
you build a better mouse trap, the 
world will beat a path to your 
door." Nothing could be farther 
from the truth, if you build a 
better mouse trap, you will make 
only one sale. That will be to your 
competitor who will copy the 
design, market your idea correctly, 
causing the world to beat a path to 
his door, not yours. 

The microcomputer industry 
lends itself to basement operations. 
All too often, these produce great 
products from technical minds, but 
without the marketing to support 
those products, they will not be 
profitable. And when a product 
doesn't make money, it disappears 
very quickly. 

Notice that I didn't say it 
wouldn't sell. It might sell very 
well — until somebody runs out of 
cash. It's got to make money or it 
won't exist. 

Fortunately, when I started my 
own business, I learned something 
fast, before it was too late. It is 
not a question of being able to sell 
a lot of whatever it is you sell. 
The most important thing is that 
you make money doing it. I'd be 
very happy selling only 1 ST80-III 
a year — IF I COULD SELL IT 
FOR $1,000,000! On the other 
hand, the last thing in the world 
you want to do is sell a lot of 
something when you're losing 
money on it. Imagine if 1 lost $25 
on every ST80-III sold. Good Lord, 
the last thing I would want to do is 
sell a thousand of them. Yet a lot 
of people are more concerned with 
selling a lot of them than making 
money. My advice is that you 
worry about making money first 
because if you're going to lose 
money, then you don't want to sell 
any of them. 

You'd be surprised how many 
people don't know this. Ever 
wonder why that little dress shop 
which did so well went broke? 
Gee, the place was always busy. 
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There's your answer. Yeah, they 
were doing a lot of business and 
losing money on every sale. 

The tendency of the beginner is 
to try to compete by cutting his 
retail price. The most logical way 
to do this is to simply lower your 
price. The trouble is that you 
might have to lower it so much 
that you'll end up losing money on 
every sale. If you're smart enough 
to avoid that pitfall, then you 
might try cutting the dealer 
margins. While this keeps your 
wholesale prices up and retail 
prices down, it doesn't work 
because dealers expect certain 
margins. The only remaining 
alternative is to lower your 
production costs. 

One way to do that might be 
cheaper packaging. This makes 
sense because the consumer is 
buying what's in the box, not the 
box. What the beginner forgets is 
that part of the cost of a product 
is the expense of getting the 
consumer to buy the product. 
This includes the wrapper. 
Although the beginner's product 
might be as good as the established 
company's product — and less 
expensive, too — it looks inferior on 
the dealer's rack and doesn't sell. 

Think about what you do for a 
moment. Let's say that you went 
down to the computer store and 
saw some "Star Trek" games. 
You've heard from other people 
that "Star Trek" is a terrific game 
so you think you'd like to buy 
one. Side by side are two "Star 
Trek" games. Both offer sound 
effects and graphics. Being new, 
you don't recognize the names of 
either author. One "Star Trek" 
game is $14.95 and is neatly 
packaged with four-color printing 
which makes it look really exciting. 
The other game is in a plain plastic 
bag and sells for $9.95. Chances 
are, you'll buy the $14.95 "Star 
Trek" game because it looks like 
it's a better game and, being more 
expensive, must be superior to a 
similar game for $5.00 less. This, in 
spite of the fact that the $9.95 
"Star Trek" game is as good as the 
$14.95 one. 

To successfully sell anything, you 
must start with a good product. 
Then you must have a good 
working knowledge of how to 
market that product. You've got to 
understand how to make deals and 
what kind of deals to offer. If you 
fail in this area, it doesn't matter 
how good the product is, nobody 
is going to buy it. ^\ 



ST80HASA 
SMART TERMINAL 
PACKAGE FOR YOU! 




All four programs include the ability to use an unmodified TRS-80 keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232-C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversion, and line printer output. 

ST80* UC 

Preset parity, word length, and baud rate (regardless of switch settings on the RS-232-C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232-C board, and even spooling of prepared meuages on tape 
directly into FORUM 80 using a basic program suppUed as a Une listing. 4K Level II cassette, $24.95 

ST80* 

Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testing of the 
RS-232-C or Upe spooUng. 4K Level II cassette $49.95 

ST80*D 

Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. Use it 
with VTOS 3.1, and get device-driven I/O, job logging, and chaining. 32K disk program, $79.95 

ST80* III 

ST-80 D with extra utility programs. 32K disk program $150.00 

a,^^^ The SoHware Exchange 
^n^^ 6 South Street, Milford, NH 03055 

1^^^^' ORDER TOLL-FREE: (In NH caU S73-S144) 

SamM 1-800-258-1790 

- - I^H^^H ' A trademark ot Lance Uicklus. Inc. 
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DEVELOPING DATA BASE 




Part five —The search continues 



by Mark Pelczarski 
translations by Rich Bouchard 
and PhilHp Case 

The Data Base series started in the 
September 1980 issue of SoftSide. 
The program listings are for the 
Apple II with Applesoft, S-80 with 
Level II or Disk BASIC, and Atari 
BASIC. Previous installments 
were: creating the main routine, 
initializing, saving, and loading 
files, adding and printing records 
(part one); changing and deleting 
records (part two); sorting (part 
three); and searching (part four). 
This month the search routine is 
developed further. 

The search routine last month 
enabled you to find records less 
than, equal to, or greater than a 
value, under any heading or by 
record number. But what if you 
wanted all the records with names 
starting with J through M (greater 
than J AND less than M)? Or 
what if you wanted every record 
with zip code in the 60000s AND 
owning an Atari computer? Or if 
you wanted every record with 
payments due since December 1st 
OR with a balance due greater 
than $10,000? To go a step 
further, what if you wanted every 
record with name greater than J 
AND less than M, AND zip code 
in the 60000s, AND owning an 
Atari computer, AND whose last 
purchase date was before 
12/01/80? If you haven't guessed, 
that's the type of option that the 
new search routine modifications 
will allow. 

The changes aren't really very 
drastic, but they do involve some 
logical thought-twisting. We had 
three variables that held the search 
criteria: CI, C2, and C$. CI was 
the heading number under which 
to look, C2 was the relation (1 — 1 
less than, 2 — 1 equal, 3 — 1 greater 
than), and C$ was the value for 
comparison. Now we extend each 
of these variables to be an array of 
eight sets of criteria. If a range of 
record numbers is specified, these 
will not be included in the arrays; 
instead they'll be transferred 
directly to II and 12, which we've 
already used to specify the lower 
and upper record bounds. In 
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effect, this actually gives us ten 
selection criteria. If you want to 
allow more or less, just change all 
the 7s in the modifications to a 
larger or smaller number. 

We're also going to allow the 
choice of ANDing or ORing the 
criteria; that is, whether a record 
must meet all of the specifications 
for acceptance, or if meeting any 
one of the specifications is 
acceptable. To do this, there's 
another switch variable, BS 
(Boolean Switch — although when 
a program gets to this point you 
are allowed to wonder). The value 
of BS will be 1 for ANDing, 2 for 
ORing. (For those of you who 
doubt my sincerity, George Boole, 
in the 19th Century, invented 
Boolean Algebra, which describes 
ANDing, ORing, NOTing, and 
performing other acts with things 
that are True or False. It's used a 
lot with computers.) Another 
variable we'll need is an Accept 
Switch, AS, whose value will be 1 
if a record is accepted, 2 if 
rejected, or if the verdict is still 
out. 

The actual program changes 
start with dimensioning the criteria 
variables. This occurs at different 
locations in each version. The 
second change is in the print 
options routine. With the multiple 
criteria selection, one of the 
choices will be simply "begin 
search." This eliminates the need 
for the "All or Selective" question 
asked earlier, so lines 3050 to 3080 
can be replaced with 3050 GET 
A$: GOSUB 8010. The remainder 
of those lines can be deleted. 

There are several changes in the 
search routine, so, as before, we're 
printing the entire routine to avoid 
confusion. Lines 8010 to 8160 still 
allow selection of criteria, but now 
with multiple selections a loop is 
used from 8015 to 8140. Line 8010 
sets C1(0) to -1, since -1 will now 
signal the end of the selected 
criteria. It also sets BS to 1, 
because the way the search 
operates, an OR could cause items 
to be mistakenly rejected. II and 
12 are set to and NI, the 
beginning and end of the records. 
J counts the number of criteria 
chosen, starting at 0. At line 8035, 
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the "begin" choice is added. 

The section of lines previously at 
8210-8230 has been moved to 
8110-8130 so that immediate action 
is taken when the choice involves 
record numbers. If it does, II or 
12 are changed immediately, J is 
not incremented, and the selection 
is not counted as one of the eight 
allowed. If the choice involved a 
heading, J is incremented at line 
8090 before going back to the top 
of the loop. 

When the user chooses to begin 
the search, line 8150 checks the 
number of criteria. If it's one or 
none, the search starts at line 8200, 
otherwise the user is asked whether 
the criteria should be ANDed or 
ORed. 

The main search loop still runs 
from lines 8250 to 8380, but now 
there is an inner loop from 8255 to 
8345 that goes through the criteria. 
Here's where the logic gets a little 
messy. AS is set to zero before the 
loop begins. Each time through, 
C1(J) is checked to see if it's -1; if 
so, J is set to 7 to terminate the 
loop. Otherwise, line 8270 directs 
the program to the proper 
comparison. If a test passes, the 
program goes to line 8330; if the 
test fails, it goes to line 8340. 

There are several cases to 
examine now. At Hne 8330, a test 
has passed. If the criteria were 
supposed to be ORed, passing one 
test makes that item acceptable, so 
the accept switch, AS, is set to 1 
and J is set to 7 to stop the loop. 
If the criteria were supposed to be 
ANDed, the rest of the conditions 
must be checked to be sure they're 
all true. Therefore the loop 
continues. 

At line 8340 we have the 
opposite case: A test has failed. If 
the criteria were to be ANDed, the 
accept switch is set to 2 (meaning 
'reject the item'), and J is set to 
7to terminate the loop. If they 
were to be ORed, you can't tell 
whether to reject the item until all 
criteria have been tried, so repeal 
the loop. 

When the loop ends at line 8350 
the accept switch will be 1 if the 
item is okay, 2 if no good, or it 
will be if the loop went through 
its entire cycle and the switch was 



never set. The latter can happen in 
two instances: if the criteria were 
ANDed and passed every test, or if 
the criteria were to be ORed and 
failed every test. Line 8355 takes 
the actions necessary for accepting 
an item, and line 8380 goes to the 
next item if the previous one is 
rejected, so let's look at the 
possible cases. If AS= 1 the 
program drops through the tests at 
8350 and 8352 and accepts the 
item. If AS = 2, line 8352 rejects 
the item. If AS = and the criteria 
were to be ANDed (BS= 1), the 
item passed every test and line 
8350 sends it to the "accept" lines. 
If AS = and the criteria were to 
ORed, the item failed every test; 
the check at line 8350 fails and the 
one at 8352 then rejects the item. 
Data Base Input 

We've had quite a bit of 
complimentary mail, several people 
saying that they subscribed to the 
magazine on the basis of this series 
alone. I've also got a stack of 
suggestions and modifications that 
we'll get to eventually. Keep the 
ideas coming; they're valuable. 

One of the problems called to 
my attention involved a bit of an 
assumption in part one. In the 
Apple version, line 100 contains 
D$ = "" with a remark that says 
Control-D. I made the mistake of 
assuming that everyone would 
know that the invisible Control-D 
character belongs in quotes, as per 
the DOS manual. If it's missing, 
the disk commands won't work. 
Another way of writing that 
statement would be D$ = CHR$(4). 
Sorry. Computer programmers 
have to be kept in touch with 
reality occasionally. 

We also received an Atari 
version correction from Richard 
Kushner. In line 5084 in the 
change routine, HL should be 
changed to IL. The problem does 
not show itself unless the heading 
length is shorter than the item 
length. The Atari version has 
caused a few more problems than 
the others because the offbeat way 
the strings are handled wreaks 
havoc on our two-dimensional 
string array. Hopefully we'll adjust 
ourselves; both Rich Bouchard and 
I are now armed with Ataris. 

Please send your comments and 
suggestions for 'Data Base' to: 

Mark Pelczarski 
1206 King's Circle 
West Chicago, IL 60185 

The Developing Data Base series is copyrighted, 1981, by 
Mark Pelczarski. It may be reprinted with written 
permission frtun the author. 



S-80 VERSION 



110 CLSSCLEAP 4000 

105 DIJ1C»(7),C1(7),C2(7) 

2W ' PRDIT aJBROUTDC VEPSIOH 3 

3840 SB=l!PRINT)PRDfr"flFTER EACH RECORD (H) KILL RETURN TO MENU, 

ANY OT»€R KEY CONTINUES. "5PRINT"<PRESS W(Y KEY>" 

3050 GOSUB60000;GOSUB8010 

7999 ' SE/«CH SUBROUTINE VERSION 2 

8000 IFNI=-lT)ENGOSUe9000:RETURN 

8010 ii=o:n=Ni:j=fl:ci(fl)=-i:BS=i 
8015 cls:prikt"sb«ch criteria: ":print 
8020 prdft" ) record number" 

8030 F0RI=flTONH:PRINn+l?") "5H»(I):»€Xn 

8835 PRIHT:PRINTNH+2:") BEGIN SEARCH" 

8040 PRINTe768,"";:iNRJT"lHICH FIELD! ";i:iFI<0ORI>NHf2THENei40 

8045 IFI=*«f2THENCl(J)=-i:G0T0B15fl 

8050 C1(0)=I-1 

8040 PRIKTe832.""J!INPUT"(l) <= (2) = (3) >= "?C2(J):iF 

C2<J)<10RC2(J»3TICNB060 

8180 PRINTW96.'"';:PRINT"VALUE:";jIFCl(J)=-n>CN8100 

8191 INPUT" "5C»(J)5J=J+1:FJ>7T>CNB160 

8l95GOTOe015 

8100 INPUT" ";i:in<10RI>NI+lT»CNB100 

8185 1=1-1 

8110 IFC2(J)=1T>CNI2=I 

8120 IFC2(J)=2THENI1=I!I2=I 

8130 IFC2(J)=3T>CMI1=I 

8140 GOTOB015 

8150 ff J<2THENe20fl 

81A0 PRINTM32."!) ITEM MUST MEET Ml C0M)ni0NS":iNPUT"2) ITEM 

MAY tET ANY CONDHION "5BS!IFBS<10RBS>2THENei60 

8200 RS=0 

8250 F0RI=I1T0I2 

8255 AS=0:FORJ=OT07 

8260 FC1(J)=-1THENJ=7!G0T0B345 

8278 ONC2(J)GOTOB280,8290,8318 

8288 IFI»(I,C1( J) )<=€♦( J)T>CN8330 

8285G0T0e340 

8290 in$(I,Cl(J))=C»(J)TlEN8330 

8295 IFRIGHT»(C»(J),l)O"«"THENB340 

8298 T=lEN(C8(J))-lJIFLEN(I»(I,Cl(J)))<m£Ne340 

8302 IFL£n$<I»a,Cl(J)),T)=LEFT$<C»(J),T)T»CNB330 

8305 GOTOe340 

8310 IFI»(I,C1(J))>=C$(J)THENB330 

8320 G0T0834e 

8330 IFBS=2THENAS=l!i)=7 

8335 G0T0B315 

8340 IFBS=1T1£NAS=2!J=7 

8345NEXTJ 

8350 IFAS=0AMDeS=lT)CNB3S5 

8352 IFASOlT)ENe3B0 

8355 IFS8=10RSB=4TfENGOSUB330I 

8360 IFSB=ZTHENCO5UB3680 

8365 FSB=3THENeOSUB5088 

8370 IFSB=4T>ENGOSUB6000 

8375 IFRS=1TWNI=I2 

8380 NEXn 

8390 PRINTJPRINT"THAT'S WJ."tGOSUB60008 

8488 RETURN 

9000 PRINT"THERE'S NO DATA IN MEMORY. 

9018 FOR 1=1 TO 1088!NEXT:RETURN 

continued on next page 
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ATARI VERSION 



105 Dm C1(7),CZ(7) 

1013 INPUT *UIL;om T»(l«aL+IL+l),C$ 
((IL+l)i8),B»(IL) 

2999 REM PRINT SUBROUTINE VERS. 3 

3050 PRINT "PRESS ANY KEY":GET »Z,AJG0 
SUB 8010 

1009 DIH T*<t«»IL+IL),C»((IL+l)x8),B$< 
IL) 

7999 REH SEARCH SUEWJUTINE, VERS, 2 
BOOO IF NI=-1 THEN GOSUB 9000JRETUWI 
8010 Il=O'.I2=NItJ=0tCl(O)=-i:BS=l 
8015 GRAPHICS fltPRINT "SEARCH CRITERIA 

;":print 

8020 print "0) record number" 

8030 for 1=0 to nhjprint i+l}") "!h»(i 

iHL+l,IxHL+HL)rNEXT I 
8035 PRINT :PRINT m*2',") BEGIN" 
8010 POSITKW Z,20:PRINT "WHICH FIELD: 
"; '.INPUT ItIF KO OR I>NH+2 THEN 8010 
8015 F I=NH+2 Tt€N C1(J)=-15G0T0 8150 
8050 C1(J)=I-1 

8060 POSmON 2,21JPRINT "(1) <= 
(2) = (3) >= ";;INRJT A:C2(J)- 
AilF C2(J)<1 OR C2(J)>3 THEN 8060 
8080 POSniON 2,22;PRINT "VALUE5";:iF 
C1(J)=-1 THEN 8100 

8090 PRINT " "JilNPUT A* 

8092 F LEN(A»)>IL THEN PRINT "TOO LON 
G. MAXIMUM LENGTH IS "{IL'.GOTO 8090 

8093 TF LEN(A»)<IL THEN A»(LEN(Ai)+l)= 
" "JGOTO 8093 

8091 C$(J«IL+1,J«IL+IL)=A»5J=J+1JF J> 
7 THEN 8160 

8095 GOTO 8015 

8100 PRINT " "JilNPUT I:F Kl OR DNI 
+1 THEN 8100 
8105 1=1-1 

8110 ff C2(J)=1 THEN 12=1 
8120 IF C2(J)=2 THEN Il=i:i2=I 
8130 IF C2<J)=3 THEN 11=1 
8110 GOTO 8015 
8150 F J<2 THEN.8200 
8160 POSmON 2,21:PRINT "D item MUST 
MEET kL CONDHIONS" SPRINT "2) ITEM M 
AY MEET ANY CONDmON ";JINPUT BS 
8162 F BS<1 OR BS>2 THEN 8160 
8200 RS=0 

8250 FOR 1=11 TO 12 
8255 AS=0:FOR J=0 TO 7 
8260 F C1(J)=-1 THEN J=7;GOTO 8315 
826Z B*=C»(JitIL+l,J«IL+IL) 
8265 F LEN(B$)>0 THEN F B$(LEN(e*),L 
EN(B*))=" " THEN B$=e$(l,LEN(B»)-l)JGO 
TO 8265 

8270 ON C2(J) GOTO 8280,8290,8310 
8280 F I»(I«RL+1+C1(J)«L,I«RL+C1(J)« 
IL+LEN(B$))<=B* THEN 8330 
8285 GOTO 8310 



8290 IF I»(IxRL+1+C1(J)«IL,I«RLH;1(J)i 

IL+LEN(B$))=B» THEN 8330 

8295 F B$(LEN(B$),LEN(B*))0"i" THEN 

8310 

8298 T=LEN(B$)-1 

8302 F I$(I«RL+l+Cl(J)«IL,IiRL+Cl(J)K 

IL+T)=B$(1,T) THEN 8330 

8305 GOTO 8310 

8310 F I$(IiRL+l+Cl(J)xIL,I«RL4Cl<J)« 

IL+LEN(B»))>=« THEN 8330 

8320 GOTO 8310 

8330 F BS=2 THEN AS=i;j=7 

8335 GOTO 8315 

8310 F BS=1 THEN AS=2SJ=7 

8315 NEXT J 

8350 F AS=0 AND BS=1 THEN 8355 

8352 F AS=0 OR AS=2 THEN 8380 

8^ F SB=1 OF' SB=1 THEN GOSUB 3300 

8360 F S8=2 THEN GOSUB 3600 

8365 F SB=3 THEN GOSUB 5000 

8370 F SB=1 THEN GOSUB 6000 

8375 IF RS=1 THEN 1=12 

8380 NEXT I 

8390 PRINT JPRM "THAT'S ALL"JGET »2, 

A 

8100 RETURN 



APPLE VERSION 



100 D» = CHP$ (D! REM CONTROL- 

D 
105 DIM C$(7).C1(7),C2<7) 
2999 REM PRINT SUBROUTINE ^««.3 

A 
3050 PRINT "<PRESS ANY KEY>"J GET 

M', GOSUe 8010 
799? REM SEARCH SUBROUTINE. ^ 

RS.2 
8000 F NI = - 1 THEN GOSUB 90 

OO: RETURN 
8010 II = 0!I2 = NI:J = OJCKO) = 

- i:bs = 1 
8015 home ! print "sepkm crher 

lAr: PRINT 
8020 PRINT "0) RECORD NUtCER" 
8030 FDR I = TO NHt PRM I + 

15") ";H$(I): NEXT I 
8035 PRINT J PRINT NH + 25") BEG 

IN" 
8010 VT« 21 : INPUT "WHICH FIELD 

J "?IJ FI<0ORI>NH + 

2 THEN 8010 

8015 F I = NH + 2 THEN CKJ) = 

- i: GOTO 8150 
8050 CKJ) =1-1 
8060 VTAB 22! INPUT "(1) <= 

(2) = (3) >= ";C2 

(J): F C2<J) < 1 OR C2(J) > 

3 THEN 8060 

8080 VTAB 23t PRINT "VALUE! "5 J F 
CKJ) = - 1 THEN 8100 

8091 INPUT " "?C»(J):J = J + It F 



J > 7 THEN 8160 
8095 GOTO 8015 

8100 INPUT " ";IS F I< 1 OR I > 

MI + 1 TIEN 8100 
8105 1 = 1-1 

8110 F C2(J) = 1 THEN 12 » I 
8120 F C2(J) = 2 THEN II = i:i2 

= 1 
8130 F C2(J) = 3 THEN II = I 
8110 GOTO 8015 
8150 F J < 2 THEN 8208 

8160 VTAB 22: PRINT "D ITEM NUS 
T MEET ALL CONDinONS"J INPUT 
"2) ITEM tttY MEET WY CONDH 
ION "}BS: F BS < 1 OR BS > 
2 THEN 8160 

8200 RS = O: F SB = 2 THEN PR* 
1 

8250 FOR I = II TO E 

8255AS = 8:FORJ = OT0 7 

8260 F CKJ) = - 1 TtCM J = 7: 
GOTO 8315 

8270 ON C2(J) GOTO 8280,8291,831 


8280 F I$(I,C1(J)) < = C$(J) THEN 



8285 GOTO 8310 

8290 F I$(I,CKJ)) = C$(J) THEN 

8330 
8295 F RIGHT$ (C$(J),1) < > " 

I" THEN 8310 
8298 T = LEN (C$(J)) - 1! ff L£N 

(I»(I,C1(J))) < T TIEN 8310 
8302 F LERi (I$(I,CKJ)),T^ = 

l£FT» (Ci(J),T) THEN 8330 
8305 GOTO 8310 
8310 F I»(I,C1(J)) > = C$(J) TtCN 

8330 
8320 GOTO 8310 
8330 F BS = 2 T»£N AS = 1:J = 7 

8335 GOTO 8315 

8310 F BS = 1 THEN AS = 2JJ = 7 

8315 NEXT J 

8350 FAS = 0ANDBS = 1THEN8 

355 
8352 F AS < > 1 THEN 8380 
8355 FS8 = 1 QRSB = 1THEN GOSUB 

3300 
8360 F SB = 2 THEN GOSUB 3610 
8365 F SB = 3 THEN GOSUB 5000 
8378 F SB = 1 THEN GOSUB 6000 
8375 FRS = 1THENI = I2 
8380 NEXT I 
8390 PRINT : PRINT "THAT'S ALL"! 

GET A$ 
8100 RETURN 

8999 REM ERROR SUBROUTSE *1 

9000 PRINT "THERE'S NO DATA IN M 
EMORY." 

9010 FOR I = 1 TO 1808: ICXT t RETURN 



Q 
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THE 

DATA 

FACTORY 



YOU CAN'T WORK HARDER, 
SO WORK SMARTER 

This program is important to 
you. We at Micro Lab liave 
tested them all. "THE DATA 
FACTORY" by William 
Passauer, is the most powerful 
data base system yet 
developed. It will provide instant 
accessibility to your records 
and files which you can then, 
rearrange in new combinations 
to give you information in 
seconds to make quick and ac- 
curate decisions. 

OUR GUARANTEE 

THIS PROGRAM WILL WORK. 
Micro Lab chooses to represent 
a very select group of profes- 
sional programmers that meet 
our high standards for quality. 
Countless hours have been 
spent in our labs to insure these 
claims to you, and we back them 
with a contract to your dealer. 
Your program can also be up- 
dated if any new changes to im- 
prove this program are made. 

A UNIVERSAL SYSTEM 

You may use "THE DATA FAC- 
TORY" at home or at work. Set 
up: Inventories, Mailing Lists (a 
printer is needed for mailing 
labels); Sales records; Accounts 
payable or receivable; Budgets; 
Library, recipe, or phone direc- 
tories; Appointment calendar; 
Notices of subscriptions, 
license or warranty dates; Work- 
ing or shopping lists, and many 
other applications that you will 
discover. All of the above can be 
accomplished from this one 
disk oriented program. No need 
to have separate costly pro- 
grams for each purpose. With all 
the data on a disk, you can 
manipulate the information 
more easily and efficiently. 



MOST ADVANCED SYSTEM 

The latest breakthroughs in a 
data base system have been in- 
corporated into Bill Passauer's 
program. The unique new 
feature that sets it apart from all 
others is its complete 
modifiability. You may rear- 
range your data, removing part 
of it from the original disk, and 
form a new data base without 
reentering the data again. Add, 
delete, replace, or rearrange and 
compare fields or data at any 
time. Do an incredible 20 level 
search. Use it to check sales by 
region, sort clients by size of ac- 
counts, and do close to 
everything that other data bases 
can. 

EASILY LEARNED 

Any one can use it. The program 
prompts you as it runs. The easy 
to follow manual leads you 
through the set up of your data 
base and all the features. "The 
Data Factory" is organized in 
nine program modules. Only the 
module being used is loaded in- 
to memory to manipulate data, 
rather than the entire program. 
This saves memory for 
manipulating data rather than 
for program storage. There are 
so many other "common sense" 
features that set it apart from all 
others. 



REQUIREMENTS 

"The Data Factory" is presently 
being offered in APPLESOFT 
but will be available in other 
forms of BASIC shortly. Check 
with your dealer for other soft- 
ware varieties currently being 
handled. You will need 48K and 
Applesoft in ROM. "The Data 
Factory" is as powerful with one 
disk drive as with two. You do 
not lose any of its capabilities 
using only one disk drive. A 
printer is optional. 



FROM A DEALER 

"The Data Factory" is easy to 
use and can truly be called 'a 
friendly system'. We have had 
the most positive feedback from 
our customers. I recommend 
"The Data Factory" to all my 
customers. 

— Marv Clavey 
Computerland of Miles, IL 



AVAILABLE NOW 

"The Data Factory" is being of- 
fered nationally for the first 
time. It has been marketed and 
tested on a local level and has 
been received with a most en- 
thusiastic response from both 
dealers and users $100.00 



The SaHw&are Exchange 



^^^^s 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 
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SPECIAL 
DELIVERY 

with 

EXTRACT 

A 100% Machine Language Word Processor from: 

Quality Software Distributors 



We can'i stop improving and expanding the 

capabiUtie'> of your TRS—80' By u^ing SPECIAL 

DBLIVtRY with EXTRACT and either Electric Pencil* 

or Radio Shack\ Scnpsit' vou can get even more 

out of your computer From /u-if one package you 

will gel all this 

MAILFORM 

Create MAILf ILE: The ONLY complete ndme and 

address list entry/editor program written in 

machine language. 



MAILRITE 

Prim letters written with either the Electric Pencil' 

or Radio Shack's Scripsit" inserting information 

irom a MAILFILE into the letter for personalizing 

and addressing. 



EXTRACT 

Take out information from the MAILFORM, the 

machine language mailing list. Find the names you 

need by Zip Code, Street Address, Gender. Age or 

any other way! 



SORT 

In-Memory sort on an entire address list usmg any 
field as the key. 



LABEL 

Prints labels from MAILFILE 



CONVERT 

Make MAILFILE from RS mail list. 



SPECIAL DltlVlRYvi/ill run on ynnr TRS-80' wilh 
TRSDOS'. NEWDOS' or iny other TRS' - like 
DOS 

$125.00 



The 
Sahware Exchange 

6 Sourh Street. Milford. NH 03055 
ORDER TOLL-FREE: (In NH call 673-5144) 

1-800-258-1790 • 



Now you can have 
a way with words • . . 

Scripsit - the new 

word processor from 
Radio Shack! 




SCRIPSIT features Lower case capability; total documentation 
formatting; error correction by deletion, insertion, overwriting and 
exchanging; automatic headers, footers, and page numbers; global 
find, replace, and delete: Operator-defined blocks for hyphenation 
and editing. 

SCRIPSIT will produce letters or any text material. The documents 
can be stored on disk for revision and update. 

If you've seen or used the Electric Pencil, you'll be delighted with 
SCRIPSIT's versatility and extra features. Rapid typists will appreciate 
the fact that SCRIPSIT does NOT lose letters at the end of each line. 
Titles can be automatically centered. Screen width can be changed 
to match your printer. Tabs can be set, etc . . . 

If you are a BASIC programmer, you'll want to utilize SCRIPSIT's 
ability to work directly with BASIC programs. 

SCRIPSIT comes on disk with thorough documentation and 
sample text files. Includes three audio cassette tapes which cover all 
aspects of this exciting Word Processing Package. 

32K Level II TRS-8d^ one or more disk drives; lineprinter. 

The Complete SCRIPSIT Package (with Binder, Manual, 2 Disks, 3 
Cassettes, Instruction Summary Card and special press-on key labels) 
is only $95.00 + $2.00 shipping. 

NEW! Scripsit Cassette/32/M $65.00 + $2.00 shipping 

Hie Sahware Exchange 

6 South Street, Milford, NH 03055 
TO ORDER TOLL FREE 
1-800-258-1790 
(in NH 673-5144) 
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TRS-80 DISK 

AND OTHER MYSTERIES from I.J.G. Computer Services 

Feeling Diskusted 
with your System? 




You say you worked 35 hours on a Cadets in Space program only to see it 
vanish as your disk turned and turned? And the program you use for the 
household budget suggests that Junior's allowance be raised to $25,000 a 
week? Does your Electric Pencil seem to have a broken point? Prepare for the 
solution to your woes; TRS-80 Disk and Other Mysteries, by Harvard C. 
Pennington. Your troubles will soon come to an end. 

Pennington tells you most of what you need to know about TRS-80 disk 
drives; how disks are organized, how space is allocated, how files are located 
on disks, and the tools that one may use to look at disk files and directories. 
The book both provides a general understanding of how disk systems 
operate, and discusses and ex- 
plains how to fix disk problems 
such as lost files. Electric Pencil 
bugs and other seemingly impossi- 
ble tangles. 



Microsoft BASIC Decoded & 
Other Mysteries is the 
definitive guide to your 
disassembled Level II ROMs. 
To supplement the 124 pages 
of comments there are six ad- 
ditional chapters, covering 
every single ROM routine in 
depth. Exploit the full power of 
Microsoft BASIC with the aid 
of hundreds of examples, ex- 
planations and sample 
assembly language routines. 



TRS-80 Disk & Other Mysteries 

$22.95 -I- $1 
Microsoft BASIC Decoded & Other ^ 
Mysteries $29.95 + Si ^ 



^ 



Srii*^ 



re 



6 SOUTH ST., 

MILFORD, NH 03055 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



^cAa 
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TheSoHwate Exchange 

market Bosket 

TO ORDER TOLL FREE 

1-800-258-1790 



SOFTWARE 
FOR THE 
TRS-80™ 



(In NH call 673-5144) 



GAMES 

Adwfltuns «i tape 

by Adventure International (Scott Adams) 

Level II, 16K J14.95 

Choose one! 

Advenlureland; Magical beings, perils and puzzles! 

Fun House! Takes all your brains to gel past the gate! 

Ghost Town Wliat happens in the Saloon after Dark? 

tWIission Impossible'. Foil saboteur, save reactor! 

Pirate's Cove: Clue in a blood-soaked book! 

Pyramid of Doom: Watch out for the nomad! 

Strange Odyssey: Ruins of an alien culture? 

The Count: Protect your neck! Who lives here? 

Voodoo Castle: Remove Count Cristo's curse! 
AAvMtuni onditk 

by Adventure International (Scott Adams) 
Three-Adventure combinations $39.95 

1) AdvMturaland, Misslaii ImpwiiMo, Pkata's Cm. 

2) Strange Myssoy, TiM CmM, VoedM C«tlt. 
Mvanture Samplor 

by Adventure International (Scott Adams) 

Mini-version of Atfvanturaland, serves as introduction. 

Level II, 16K J6.95 

*lr ni|M SlMimr 
subLOGIC 

Cassette $25.00 

Silrtg Samptar 

by Adventure International 

32K. 2 Disks $35.00 

Datestoms of Ryn 

By Automated Simulations 

Cassette $14.95 

Disk $19.95 

HaMira Warrlw (Apshal Saqual) 
by Automated Simulations 

Cassene $24.95 

Disl( $29.95 

Jaunwy ta the Canter af the Eaitli 
by Ramware - Greg Hassett 

Level II, 16K $7.95 

Lest Dutchman's Gald 
by Programmers Guild 

Level II, 16K $14.95 

Markic's Tewer 

by Automated Simulations 

Cassette $14.95 

Disk $19.95 

Original Adventure 

by Microsoft, as played on PDP— 10 

Disk, 32K $29.95 

Rescue at Rigef 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

Stone of Sisyphus 

by Adventure International 

Disk,32K $35.00 

Temple of Apshai 

by Automated Simulations 

Cassette $24.95 

Disk $29.96 

Twas the Night Before Christmas (Kids) 
by Adventure International 

16K Cassette $12.95 

Zark 

Personal Software Disk $39.95 

AMUSEMENTS 

Air Raid 

by Small Systems Software 

Level I or II, 4K $9.95 

Amizfn' Mazes 

by Ramware - Robert Wallace 

Level II, 16K $9.95 

Android Njm 

by Ramware - Leo Christopherson, with sound 

Level II, 16K $14.95 

Barricade 

by Small Systems Software 

Machine Language $9.95 

Bee Wary 

by Ramware - Leo Christopherson, with sound 

Level II, 16K $14.95 
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by Ramware - Rtehard Taytor, word game (with sound) 

Level 11, 16K $9.95 

CencMtFalim 

by Ramware - Randy Hawkins 

Cassette $7.95 

Dr. CNps 

by Adventure International 

Cassette $14.95 

Doal-N-llreMs 

by Acorn Software (Leo Christopherson) 

Cassette $14.95 

Disk $20.95 

Gala<y leinsleii 

by Big Five Software 

Level II, 16K $14.95 

Intifactlva Fictlaii 

by Adventure International (Robert Latere) 

Local Call for Death 

Disk $19.95 

Six Micro Stories 

Disk $14.95 

Two Heads of the Coin 

Disk $19.95 

Invasien 

by Ramware - Chris Freund 

Level II, 16K $9.95 

Disk $14.95 

Kamikaze 

by Ramware - Russei Starkey 

Level II. 16K $7.95 

Ute Two (with teund) 

by Ramware - Leo Christoplierson, with sound 

Level II, 16K $14.95 

Otympic Decatliieii 
by Microsoft 

Cassette $24.95 

Disk $24.95 

nnball 

by Acorn Software 

Cassette $14.95 

Disk $20.95 

PR Dogfight 

by Ramware - David Bohike 

Level II, 16K $7.95 

Snake Eggs 

by Ramware - Leo Christopherson, with sound 

Level II, 16K $14.95 

Super Neva 

by Big Five Software 

Level II, 16K $14.95 

TRS-80 Opera Theatre 

by Ramware - Richard Taylor. Magnificent Sound 

Level II, 16K $9.95 

Tunnels of Fahad 

by Adventure International 

Cassette $9.95 

BOARD GAMES 

Bridge Challenger 

by Personal Software 

Level II, 16K $19.95 

Cribbage 

by Ramware - Roger W. Robitaille 

Level II, 16K $7.95 

Fastgammon 

by Quality Software 

Level II, 16K $19.95 

Mean Checkers Machine 
by Ramware - Lance Micklus 

Level II, 16K $9.95 

Disk $14.95 

Monty Plays Monopoly 

by Personal Software (old ROM only) 

Cassette $24.95 

Disk $27.96 

Pentomlnoes 

by Ramware - James Garon 

Level II, 16K $7.95 

Sargon 2 (Chess) 

by Hayden (Dan & Kathe Spracklen) 

Level II, 16K $29.96 

Disk,32K $34.95 
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HOURS: 

MONDAY - FRIDAY 

9 AM to 9 PM 

SATURDAY 

11 AM to 3 PM 




'EASTERN TIME 



HIUCATIONAL GAMES 

Nine Games fer PrasclMal ChiMraii 

by Ramware - George Blank 

Level II. 16K $9.95 

SIMULATIONS 

by Instant Software 

Cassette $7.95 

Air Traffic CMitniar 

by Sensatkinal Software $9.95 

B-1 Dembtr 

by Avaton Hill $15.00 

Cemputar BIsmarek 
by Strategic Simulations 

Cassette $49.95 

Disk $59.95 

EfldZa«all 

by Ramware - Roger W. Robitaille 

Level II, 16K $9.95 

Midway Campaign 

by Avalon Hill $15.00 

North Atlantic Ceimy 

by Avalon Hill $15.00 

Pfgikin (Fealball) 
by Acorn Software 

Level II, 16K $9.95 

Planet Miners 

by Avalon Hill $15.00 

Perk Barrel 

by Ramware - George Blank 

Level II, 16K $9.95 

Santa Paravia 

by Instant Software 

Level II. 16K $7.95 

SPACE GAMES 
Oriofl Series 

invasion af Orlen 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

Startieat Orion 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

SImutak I 

by Adventure International 

Disk $19.95 

Space Battles 

by Level IV 

Level II, 16K $14.95 

Disk, 32K $19.95 

Star Trek 3.5 

by Adventure International (Lance Micklus) 

Level II, 16K $14.95 

Time Tiek 

by Personal Software 

Level II, 16K $19.95 

X-Wing Fighter 11 

by Ramware - Chris Freund 

Level II, 16K $9.95 

STRATEGY GAMES 

Galactic Empire 

by Broderbund Software 

Level II, 16K $14.95 

ISalactlc Revolution 

by Broderbund Software 

Level II, 16K $14,95 

Galactic Trader 

by Broderbund Software 

Level II, 16K $14.95 



Galactic Empira, Ravolutloo, Tradar 

by Broderbund Software 

Disk,32K $39 95 

Kriagiplal 11 

bv Ramwate - Ron Potkin 

Levelll, 16K $14.95 

Slag 

by Adventure International 

Cassefle $14.95 

Talpan 

by Ramware - Art Canfil 

Levelll, 16K $9.96 

Tycoon 

by Ramware - David Bohike 

Levelll, 16K $7.95 

Up Poriscops 

by Ramware - Ron Polkin 

Levelll, 16K $14.95 

Warpath 

by Ramware - Ron Polkin 

Levelll. 16K $14.95 

BUSINESS 

Accounts Receivable (with invoicing) 

by Ramware - Stephen fleObler 

3 disks, 2 manuals, 2 drives, lineprinter $69.95 

Basic Statistics 

by Ramware - Steve Reisser 

Levelll, 16K $9.95 

CCA Data Management System 

by Personal Software 

Ready tor transfer to disk, with manual 

Tape $74.95 + $2 

Column Calculator 

by David Gray (Ramware) 

16K, Disk $39.95 

Dynamic Data Base 

by Ramware - Ken Knecfit 

Manual & 3 Programs 

Disk.32K $39.95 

Histograph/Scattergram 
by Ramware - Gary Breschini 

Levelll, 16K $9.95 

Infinite Business 
by Racel Computes 

16K Cassette $29.95 

Inventory 'S' 

by Ramware - Roger W. Robitaille 

Levelll, 16K cassette $24.95 

32Kdisk. wiltioul invoicing $39.95 

48K disk with invoicing $59.95 

Inventory System 11.3 
by Ramware - M . Kelieher 

Improved version $79.95 

Mail List II 

by Ramware - SBSG 

32Kdisk $49.95 

Options Monitor 

by W.S. Kutleuer (Ramware) 

16K. Disk $29.95 

Payroll 

by Ramware ■ Slephen Hebbler 

32Kdisk $39.95 

Small Business Bookkeeping 
by Ramware - Roger W, Robitaille 
Level II, I6K, with journal 

Disk $36.95 

Cassette $31 .95 

Without journal 

Disk $29.95 

Cassette $24.95 

Special Dellveiy with Extract 
by Quality Soltware Distributors 

Disk $125.00 

Superscript 

by Acorn Software 

32K Disk $29,95 

SPECIAL PURPOSE 

Electronic Assistant 

by Ramware - John Adamson 

Levelll, 16K $9,95 

Nam Radio 

by Ramware - M , Kelieher 

Level 11. 16K $9.95 

32K disk, (advanced version) $24,95 

muMATH 
by Microsoft 

32K Disk $'■'.95 + $3 

Stat Pal 

by Bruce Chaimer (Ramware) 

32-48K Disk $29.95 

WORD PROCESSOR 

Scrlpsit 

by Radio Shack 

32K Cassette $65 .00 + $2 

32K Disk $95.00 + $2 

PERSONAL 

AmatauT Astronomy 

by Ramware • George Hall 

Handbook 

Cassette $1495 



Hnanclal Planner 

by Hayden 

Disk $74.95 + $2 

Home Financial Management 
by Ramware - M. Kelieher 

Levelll, 16K $9.95 

I Chlng/Biorhytlims 

by Ramware - J.T. Philips 

Level II, 16K Cassette $9.95 

Interlude 

by Synergistic Soltware 

Cassette $16.95 

Disk $19.95 

Keyboard 80 

by Ramware - John Adamson 

Levelll. 16K $9.95 

Magic Paper Calculator 

by Ramware - Russell Starkey 

Levelll, 16K $14 95 

Periodical Cross Reference 
by Ramware - Dave Slambaugh 

Levelll, 16K $14,95 

32Kdisk $19.95 

Personal Finance 

by Ramware ■ Lance Micklus 

Level II. 16K $9.95 

Roots 

by Ramware - Bill Sholar 

32Kdisk $19.95 

RPN Calculator 

by Ramware - Russell Starkey 

Levelll. 16K $9.95 

Secrets of the Tarot/Cards of Fortune 
by Ramware - J.T Philips 

logether $9.95 

Soft Music 

by Computer Light & Sound 

16K Casselle $24.95 

Typing Tutor 

by 80 US 

Levelll, 16K $19.95 

UTILITIES 

Editor Assembler + 

b^ Microsoft 

Level II, 16K Cassette $29.95 

Automated Disk Directory 
by Ramware - George Blank 

32K disk, (on Cassette) requires NEWDOS $14,95 

BLINK 

by Racel Computes 

32K Disk $25.00 

Boss 2.1 
by Soft Seclor 

Levelll, 16K Cassette $29,95 

COMPROC Command Processor 
by Race! Computes 

Levelll, 16K. Cassette $19.95 

Disk Sort/Merge 
by Race! Computes 

32K Cassette. $75.00 

DOSORT 

by Racel Computes 

32K or 48K Cassette $34.95 

File Manager 80 

by Nepenthe 

32K disk $49.95 

UNGUAGE 

APL 80 3.0 

by Ramware - Phelps Gales 

Disk. 32K. Deluxe Version $39.95 

Level II, 16K, reduced features, no course or book $14,95 

APL 80 Book, separately $16,95 + $3 

Assembly Language Development System (A.L.D.S) 
by Microsoft 

32K. 2 Disks $95.00 + $2.50 

FORTRAN 
by Microsoft 

32K, 2 Disks $95.00 + $2.50 

FORTRAN plus Assembler $175 00 + $5 

Level III BASIC 

by Microsoft $49.95 

BOOKS 

APL - An Interactive Approach 

byGilmanani)Rose(J Vi/iley & Sons) $16.95 + $3 

Background Math for a Computer Worid 

by R. Ashley (Wiley) $7.95 + $1 

BASIC Handbook 

BY Dr. David A. Lien (CompusofI) $14.95 + $1 

BASIC for Home Computers 

by Albrecht, Finkel, & Brown (Wiley) $7.95 + $1 

Calculations with BASIC 

by Scelbi Publications $8.95 + $1 

Chess & Computers 

by David Levy(CPS) $9.95 + $1 

Consumer's Guide to Personal Computing & Microcom- 
puters 
by S.FreibergerS P. Chew (Hayden) $8.95 + $1 

CP/M Summary Guide 

by Rainbow Associates $ 4.95 + $1 
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Horns Computers Can Make You Rich 

by Joe Weisbecker (Hayden) $6.50 + $1 

Learning Level II 

by Dr. David A. Lien (Compusoft) $15.95 + $1 

Learn iXicrocomputers 

by Scelbi Publications $14.95 + $1 

Microcomputer Potpourri 

by Scelbi Publications $3.95 + $1 

PASCAL An Introduction to Methodical Programming 

byW Findlay&D.A.WatMCSP) $12.95 + $1 

Pathways through the ROM 

by SoftSide Publications $19,95 + $1 

Personal Information Management System 

by Scelbi Publications $1 1 .95 + $1 

Sargon Handbook 

by Dan & Kathe Sprackien (Hayden) $15.95 + $1 

Secret Guide to Computers 

by Russ Walters (Scelbi Publications) $5.95 + $1 

Structured BASIC & Beyond 

by W. Amsbury (CSP) $10,95 + $1 

Take My Computer. Pfeaie! 

by Scelbi Publications $5.95 + $1 

Ten Easy Pieces 

byH.Sagan&C. Meyer (Hayden) $7.95 + $1 

The Little Book ol BASIC Style 

by John Nevision (Addison Wesley) $5.95 + $1 

TRS-SO Assembly Language Programming 

by William Barden Jr. (Radio Shack) $3.95 + $1 

TRS-80 BASIC 

by Albrecht. Inman. & Zamora (Wiley) $8.95 + $1 

TRS-80 Disk and Other Mysteries 

by Harvard Pennington (i.J.G. Inc.) $22.95 + $1 

TRS-BO Interfacing 

by Jonathan Titus (Howard W. Sams Inc. ) $8.95 + $1 

TRS-aO Interlacing II 

by Titus, Titus, and Larson (Howard W. Sams Inc.) $10.95 + $1 

Understanding Microcomputers 

by Scelbi Publications $9.95 + $1 

Why Do You Neeil i Parsonal Cuinpular 

by Lance Leventhal (Wiley and Sons) $8.95 + $1 

Z-BO and 8080 Assembly Language Programming 

by Kathe Sprackien (Hayden) $7.95 + $1 

Z-80 Instruction Handbook 

by Scelbi Publications $5.95 + $1 

Z-80 Software Gourmet Guide & Cookbook 

by Scelbi Publications $15,95 + $1 

SUPPLIES 
Cassettes: 

C-IQ $6.95 + $1 

C-20 $7.95 + $1 

Diskelles: 

Dysan (premium quality) 
Box of 5 $29.95 + $1 

BASF 

Box of 10 $34.95 + $2 

Case of 100 $299.00 + $3 

Scotch 

Box of 10 $39.95 + $2 

Disketle Storage Box $5.00 + $1 

Floppy Armor* 

Prolective envelopes for shipping floppy disks 

5-pack ..$4.95 + $1 

Floppy Disk Refills $7 95 

Floppy Disk Savers $14.95 

SoHSide Vinyl Binders $4.95 + $1 

Tape Recorder Allignment Kit $9.95 + $1 

File Utility 
by Ramware ■ 

32KDisk $29.95 

Floppy Disk Diagnostic 

by Ramware - Dave Stambaugh 

Disk with manual 16K Machine Language $24.95 

General SUBFAC 
by Racet Computes 

16K - 48K Cassette $24.95 

Infinite BASIC -i- D 

16K Cassette $49.95 

KVP 

by Ramware - Lance Mk:klus 

Cassette #232 $14.95 

Disk $19.95 

Level I in Level 11 
by Apparal 

Level 11, t6K $14,95 

Micro Text Editor 

by Ramware - Don Coons 

Level II. 4Kor 16K $9.95 

NEWDOS 

by Apparal $49.95 

NEWDOS + 

by Apparat $99.95 

NEWDOS 80 

by Apparat $149.95 

Remodel & Proload 
by Racet Computes 
16K-48K Cassette $34.95 

RSM2 

by Small Systems Software 

Level 11. 16K $26,95 
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RSM2D ST80 Smart Ttrminal 

by Small Systems Software by Ramware - Lance Micklus 

Disk lor 16-48K on one tape $29.95 Levelll, 16K $49.95 

Spool ST80D Smartor Tarmliial 

by Ramware ■ Robert T. Hepp by Ramware - Lance Micklus 

Will print on ASCII file to a parallel line printer at the same Disk $79.95 

time you are using your computer lor another program. For -Toniii nun nn 

32K disk systems only. Will NOT work with NEWDOS (2.3 ''""'" libu.uu 

or VTOS 3.0 okay). ST80-UC Dedicated to THE SOURCE 

Disk $24 95 by Ramware - Lance Micklus 

jy^Q Level II, 16K $24.95 

by Ramware - Paul van der Eijk Systom Copy 

Trace and Debug monitor for tape and disk systems by Ramware ■ Kalman Bergen 

16K.32K,and48Kononetape $24.95 Levelll, 16K $9 95 



T-Shoft 

by Web Associates 

Levelll, 16K $9.95 

Tiny Camp: A BASIC Computot In BASIC 

by Ramware ■ David Bohike 

Cassette $19.95 

Disk $24.95 

VTOS 4.0 

by Adventure International $99.95 

Z80 Zap Command 

by Quality Software 

Disk $29,95 




Ppple Stood 



TO ORDER 

TOLL FREE (orders only) 

1-800-258-1790 



(In NH call 673-5144) 



KEY 



I - Integer BASIC 

M - Machine Language 

(Apple II or Apple IH-) 
A • Applesoft 
ROM - Apple II Plus or Applesoft card only 



Your Apple 1 1* software market from The Software Exchange 



ADVENTURELAND 

Adventure International 

Cassette/24K/M $14.95 

ADVENTURE COMBINATION «l 

Adventure International 

Adventureland. Pirate's Cove, Missions Impossible, 

Disk/24K/M $39.95 

ADVENTURE COMBINATION K 

Adventure International 

Voodoo Castle, Ttie Count, Strange Odyssey 

Disk/24K/M $39.95 

ADVENTURE COMBINATION #3 

Fun House, Pyramid, Gliost Town 

Disk/24K/M $39.95 

ADVENTURE SAMPLER 

Adventure International 

Cassette/24K/M $6.95 

AIR FUCHT SIMULATOR 
subLOGIC 

Cassette $25.00 

Disk $33.50 

AIR TRAFFIC CONTROLLER 

Sensational Software 

Cassette/16K/M $9.95 

AMBUSH 

Strategic 

Disk 48K/A ROM $59.95 

ANDROID NIM 

Ramware 

Disk/24K/A ROM $17.95 

APPEN I TEXT EDITOR 

Muse 

Cassette/16K/I $17.95 

APPILOT II 

Muse 

Disk/4«K/M $99.95 

APPLE 21 

Softape 

Cassette/24K/I $15.95 

APPLELISTNER 

Softape 

Cassette/16K/I $19.95 

APPLETALKER 

Softape 

Cassette/16K/I $15.95 

ASTEROIDS IN SPACE 

Quality Software 

Disk/32K/M $19.95 

B-l BOMBER 

Avalon Hill 

Cassette/16K/1 $15.00 

BASEBALL 

Muse 

Cassette/16K/A ROM $14.95 

BEST DF BISHOP 

Softape 

Cassette/16K/I $39.95 
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BEST OF MUSE 

Muse 

Disk/16K/I $39.95 

BISMARCK 

Strategic 

Disk 48K/A ROM $59.95 

BRIDGE CHALLENGER 

Personal Software 

Cassette/16K/M $19.95 

CCA DATA BASE MANAGER 

(Works in conjunction with Visicalc) 

Personal Software 

Disk/32K/A $99.95 + $2 

COMPUREAD 

Edu-ware 

Disk/48K/A $2495 

COUNT ADVENTURE 

Adventure International 

Cassette /24K/M $14 95 

DATA FACTORY 

Micro-Lab 

Disk/48K/A $100.00 

DATE STONES OF RYN 

Automated Simulations 

Cassette 32K/A R0M/48K/A $14 95 

0isk/48K/A ROM $19.95 

DESK TOP PUN 

Personal Software 

Disk/32K/M $99.95 

DOGFIGHT 

Micro Lab 

Disk/48K/M $29.95 

DR. MEMORY 

Muse 

0isk/32K/l $49.95 

DUNGEON CAMPAIGN 

Synergistic 

Cassette/16K/I $14 95 

Disk/32K/I $17.50 

EDITOR ASSEMBLER 
Hayden 

Disk $39.95 

ELECTRIC CRAYON 
Muse 

Cassette/ 16K/M $17.95 

ENGINEERING MATH TAPE I 
Hayden 

Cassette/24K A/16K A ROM $1495 

ESCAPE 

Muse 

Cassette/ 16K/I $12.95 

FASTGAMMON 

Quality Software 

Cassette/16K/M $19.95 

FORTE 

Softape 

Cassette/16K/M $19.95 

FORTH II 

Softape 

Disk $49.95 

SoftSidc JANUARY, 1981 



GALACTIC EMPIRE 

Groderbund Software 

Disk/48K/A $24.95 

GAUtCTIC REVOLUTION 

Broderbund Software 

Disk/48K/A $2495 

GALACTIC TRADER 

Broderbund Software 

Disk/48K/A $24.95 

GENERAL MATH TAPE I 

Hayden 

Cassette/24K A/16K A ROM $1495 

GHOST TOWN ADVENTURE 

Adventure International 

Cassette/24K/M $14,95 

GLOBAL WAR 

Muse 

Cassette /32K /A ROM $17 95 

Oisk/48K/A ROM $24.95 

HELLFIRE WARRIOR 

Automated Simulations 

Disk /4BK/A ROM $29.95 

HIGHER GRAPHICS 

Synergistic Software 

Disk/32K/I $2495 

HIGHER TEXT 

Synergistic Software 

Disk/24K/M $35.00 

HI-RES FOOTBALL 

On-Line Systems 

Disk/48/M $39.95 

HIRES MYSTERY HOUSE 

On Line Systems 

0isk/48K/M $24.95 

INTERLUDE 

Cassette 16K/I $16.95 

Disk/32K/I $19.95 

INVASION OF ORION 

Automated Simulations 

Cassette/3 K/A R0M/48KA $19 95 

Disk 48K/A ROM $24.95 

LOST DUTCHMAN'S GOLD 

Programmers Guild 

Cassette/24K/A ROM $14.95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $29.35 

MAILING LIST DATABASE 

Synergistic Software 

Disk/48K/A $34.50 

MAZE GAME 

Muse 

Cassette/ 16K/I $12.95 

MICROSOFT ADVENTURE 

Microsoft 

Disk 32K/M $29 95 



MIDWAY CAMPAieN 

Avalon Hill 

Cassette/ 16K/I $15.00 

MISSION IMPOSSIBLE 
ADVENTURE 
Adventure International 

Cassette/24K/M $14,95 

MODIFIABLE DATABASE 
Synergistic Software 

Disl</48K/A ROM $79 50 

MONTY PLAYS MONOPOLY 
Ritam 

Cassette/16K/M $24 95 

Disk/32K/M $27 95 

MORLOC'S TOWER 
Automated Simulations 

Cassette/32K/A R0M/48K A $14 95 

Disk/48K/A ROM $19 95 

MUSIC BOX 
Muse 

Cassette/ 16K/M $12.95 

MYSTERY FUN HOUSE ADVENTURE 
Adventure International 

Cassette/24K/M $14 95 

NORTH ATLANTIC CONVOY RAIDERS 
Avalon Hill 

Cassette/ 16K/I $1500 

NUKE WAR 
Avalon Hill 

Cassette/ 16K/I $15.00 

ODYSSEY: THE COMPLEAT ADVENTURE 
Synergistic Software 

Disk/48K/I $2995 

PIRATE'S COVE ADVENTURE 
Adventure International 

Cassette/24K/M $14 95 

PLANET MINERS 
Avalon Hill 

Cassette/ 16K/I $15.00 

PORK BARREL 
Ramware 

Cassette /24K/A $9.95 

PROGRAM LINE EDITOR 
Synergistic Software 

0isk/24K/M $40.00 

PYRAMID OF DOOM ADVENTURE 
Adventure International 

Cassette/24K/M $14.95 

RESCUE AT RIGEL 
Automated Simulations 

Cassette/32K A R0M/48K A $19.95 

Disk 48K/A ROM $24.95 

SARGON II 
Hayden 

Cassette/24K/M $29.95 

Disk/24K/M $34.95 

SCREEN MACHINE 
Softape 

Cassette $1995 

Disk $29.95 

SPACE WAR/SUPER INVASION 

Sensational Software 

Disk $29.95 

STARFLEET OF ORION 

Automated Simulations 

Cassette/16K/I $1995 

Disk32K/l $24.95 

• No sales tax. 

• All C.O.D. or special 
delivery orders are a minimum 
of $5.00 for special handling. 
P.O. Box 68, Milford, NH 03055 
TOLL-FREE (>n NH call 673-5144) 

1-800-258-1790 



STIMULATING SIMUUTIONS 

Hayden 

$5.50 + $1 

STRANGE ODYSSEY ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

SUPER APPLE BASIC 

Hayden 

Disk $3995 

SUPER INVASION 

Sensational Software 

Cassette/32K/M $1995 

SUPER TEXT II 
Muse 

Disk/4«K/M $150.00 

TEMPLE OF APSHAI 

Automated Simulations 

Disk 48K/A ROM $2995 

TEXT EDITOR 

Peripti Unl. 

Disk/48K/A ROM $64.95 

THE WIZARD AND THE PRINCESS 

On Line Systems 

Disk/48K/M $32.95 

THREE-D 

MP Software 

Disk/48K/A ROM J29 95 

THREE MILE ISLAND 
Muse 

Disk/48K/I $39 95 

U-DRAW I 
Muse 

Cassette/16K/M si795 

U-DRAW II 

Muse 

Disk/32K/M $3995 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32K/A ROM $12.95 

VISICALC 
Personal Software 

Disk/32K/M $14995 + $2 

VOICE 
Muse 

Disk/48K/M $39.95 

VOODOO CASTLE ADVENTURE 

Adventure International 

Cassette/24K/M $14 95 

WILDERNESS CAMPAIGN 

Synergistic Software 

Cassette/48K/I $17 50 

Disk/48K/I $19 95 

WILDERNESS S DUNGEON 
CAMPAIGNS 
Synergistic Software 

Disk/48K/I $32.50 

WINDFALL 
Edu-Ware 

Cassette/32K/A S14 95 

Disk/32K/A $1995 

ZORK 

Parsonal Software 

Disk $39.96 

For more detailed descriptions of 
our software and supplies send 
for the TSE Catalogue - its FREE! 
Write or call today for your copy. 

All prices are subject to change 
without notice. The Software 
Exchange Is not responsible for 
typographical errors, including 
prices. 
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? ? MOVING ? ? 

TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROM YOUR 

LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 
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ATARI PROGRAMMING HINT 
Good news! There is a substitute 
for the SETCOLOR command 
which uses a lot less memory, 
works faster, and allows you to 
pack more statements into each 
line. The bad news is youll have to 
do a little thinking to use it. 

Locations 708 through 712 
correspond to SEjCOLOR's 
through 4. If you would normally 
use "SETCOLOR 0,14,10", you 
could use instead the shorter 
"POKE 708,234." The location to 
POKE is found by adding the first 
number in the SETCOLOR 
statement to 708 (in this case: 
708+0=708) . The value to POKE is 
found by multiplying the middle 
number by 16 and adding the last 
number (14*16+10=234). 

If you find yourself always 
running short of memory, this 
substitute for SETCOLOR is even 
more impressive: Every 
SETCOLOR statement you use 
eats up a whopping 24 bytes of 
memory (7 bytes for each constant, 
one for each comma, and one for 
the word SETCOLOR). On the 
other hand, a POKE statment 
takes only 16 bytes. Further 
savings can be obtained by placing 
the POKE values in a DATA 
statement, reading them with a 
FOR/NEXT loop and then 
POKEing them. The line: 
10 SETCOLOR 0,0,0: 
SETCOLOR 1,2,3: SETCOLOR 
2,3,4: SETCOLOR 3,4,5: 
SETCOLOR 4,5,6 
can be replaced by: 
10 FOR 1=708 TO 712: READ P: 
POKE I, P: NEXT LDATA 
0,35,52,69,86 

This line has the advantage of saving 
even more precious memory than 
may be apparent, since constants in 
DATA statements take up only one 
byte per digit (for example, the 
number 86 takes 2 bytes) instead of 
the inflationary 7 bytes per constant. 
James Garon 
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TRS-80 

Interfacing 

The most useful guides to 
S-80 interfacing 
TRS-80 Interfacing 
by J. Titus (Howard W. Sams, Inc.) 
$8.95 + $1 
TRS-80 Interfacing II 
by Titus, Titus, and Larson 
[(Howard W. Sams, Inc.) $10.95 + $1 



6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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SAY YOHO 




by Scott Adams 
column #4 

This month let's look at the 
rules I use to write what I consider 
a good compunovel. I feel that 
any compunovel will need to 
follow these rules fairly closely to 
become a success, though like any 
rules there are always exceptions. 

1) LOGICAL CONSISTENCY. 

Is the compunovel logical? This 
is of course a very basic point that 
any compunovel writer needs to 
adhere to very closely or the results 
can be really disastrous. 

Simple things like whether when 
exiting a room to the east you can 
get back by the going west are 
important and can completely ruin 
the feel of an otherwise fun 
program! (Unless of course it is in 
a logical place such as a maze or 
maybe lost in a desert and so on.) 

Also very important: Do the 
responses fit the actions? If you 
drink a flask of water it would be 
extremely illogical to then develop 
a case of sunstroke and die. If a 
particular response doesn't fit the 
requested action, then there should 
be some sort of logical reason why 
not. An example might be the 
reason you developed sunstroke in 
the above was because the water 
had a specific drug in it. 

Whatever the reason is, though, 
it should become obvious to the 
player and not remain a secret with 
the author, or the believability of 
the game will suffer! 

2) EXOTIC KNOWLEDGE 
SHOULD BE UNNECESSARY. 

Knowledge that is not common 
or readily available should not be 
required to complete a game, 
(though it might be required for 
special scoring). The main purpose 
of playing a compunovel is more 
to overcome obstacles and 
problems by using intelligence than 
by knowing something someone 
else doesn't. 

Example: Needing to know the 
Russian word for cow before 
milking said beastie. 

There are, of course, exceptions 
to this rule. If a compunovel was 
designed to educate in a particular 
26 



field, then it would be acceptable 
to force the player to learn what is 
needed. Also, if a piece of 
knowledge is widespread and easy 
to find out, it would be acceptable, 
such as knowing Morse Code. 

3) ITEMS AND LOCATIONS 
SHOULD FIT THE PLOT. 

A dragon and magic words are 
quite appropriate in a fantasy 
adventure, but would be greatly 
out of place in a nuclear reactor! 

4) MULTI LEVELS OF 
DIFFICULTY. 

All problems and obstacles to 
overcome should not be of the 
same degree of difficulty or the 
player will either become extremely 
bored or extremely frustrated. One 
obvious exception to this rule is 
when the program is written for a 
specific age group. 

5) MORE WAYS TO SKIN THE 
CAT. 

Whenever it is possible (usually 
memory is a constraint here), try 
to have more than one way to 



reach a desired goal as not all 
people think alike! Also along this 
line, it is a good idea to try to 
provide responses to all the 
different things a player might 
enter. (This is probably one of the 
easiest rules to lay down and one 
of the hardest to follow!) 

6) NO SUDDEN DEATH 
SYNDROME. 

Unless the plot is specifically 
written to need it (like DEATH 
DREADNAUGHT), it is not a 
good idea to capriciously kill off 
players without giving them some 
sort of warning ahead of time. 
This allows the clever player a 
chance to escape the doom the 
author has envisioned for them! 

So that sums it up for this 
month, if anyone out in the real 
world has any additional rules they 
think are valid, drop me a line! 

And oh yes. Adventure 10 is 
now out! 

Now, I'll just 'til next month, ^ 
SAY YOHO (BYE)! Q 



One Line Adventure 
by Phillip Case 

CLS:PRIHT"M)VENTIJRE 

VISIBLE items: trees 

OBVIOUS EXnS! EAST WEST 

"!STRING$(30,"-")!INPUT"TELL (t"!A»:FA$O"E",0aSEPRINTei),"I'« 

IN A CAVE.";!PRINTe79,"N0THING";:PRIMTei13,"N0NE",;:PRINTK63,"" 

;!INPUTA»tIFASC(A*)=7ZANDMID*(A$,1)="P",PRINT"Y0U HIN! !"aS 

El 

One line Review 
by Scott Adams 

(See Say Yoho column this yes; RATING 5/6 = 84%, (not 

month). RULE 1, usually; RULE bad for one line!); SAY YOHO, 

2, yes; RULE 3, yes; RULE 4, well and we gone ^TL 

maybe; RULE 5, hardly; RULE 6, ^ 



BUGS, WORMS and OTHER UNDESIRABLES 



IMHOTEP: 

Line 1345 should be added to the 
end of line 1340. Then line 1345 
should be deleted. 

SoftSide JANUARY, 1981 



MOONLANDING: 

Add the following line: ^ 

5006 RETURN ^ 
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Adventure by Scott Adams is like no other program you have 
ever seen! Inspired by the large Adventure game found on 
big computers in the last few/ years, it will run on your 16K 
Home Computer! This is one game you will NOT master in 
an hour and then lose interest in! Adventure Is a machine 
language program using all 16K of your computer. Adven- 
ture supports your optional lower case hardware and has a 
unique split screen video driver with blinking cursor!* 
O.f "SPECIAL SAMPLER" - Never tried Adventure? This 
special inexpensive sampler complete with 3 Treasures 
is a cut-down version of our large Adventureland. 
Guaranteed to supply hours of enjoyment: Try an Adven- 
ture today! 
I.t ADVENTURELAND - You wander through an enchanted 
world trying to recover the 13 lost treasures. You'll en- 
counter wild animals, magical beings, and many other 
perils and puzzles. Can you rescue the Blue Ox from the 
quicksand? Or find your way out of the maze of pits? 
2.t PIRATE'S ADVENTURE ■ "Yo ho ho and a bottle of 
rum..." You'll meet up with the pirate and his daffy bird 
along with many strange sights as you attempt to go 
from your London flat to Treasure Island. Can you 
recover Long John Silver's lost treasures? 

3. MISSION IMPOSSIBLE ADVENTURE - Good morning, 
your mission is to ... and so it starts. Will you be able to 
complete your mission in time? Or is the world's first 
automated nuclear reactor doomed? This one's well 
named. It's hard, there is no magic, but plenty of 
suspense. Good luck. . . . 

4. VOODOO CASTLE - Count Cristo has had a fiendish 
curse put on him by his enemies. There he lies, with you 
his only hope. Will you be able to rescue him or is he 
forever doomed? Beware the Voodoo Man. . . . 

5. THE COUNT - You wake up in a large brass bed in a cas- 
tle somewhere in Transylvania. Who are you, what are 
you doing here, and WHY did the postman deliver a bot- 
tle of blood? You'll love this Adventure, in fact, you 
might say it's Love at First Byte. . . . 

6. STRANGE ODYSSEY - Marooned at the edge of the 
galaxy, you've stumbled on the ruins of an ancient alien 
civilization complete with fabulous treasures and un- 
earthly technologies. Can you collect the treasures and 
return or will you end up marooned forever? . . . 

7. MYSTERY FUN HOUSE - Can you find your way com- 
pletely through the strangest Fun House in existence, or 
will you always be kicked out when the park closes? . . . 

8. PYRAMID OF DOOM - An Egyptian Treasure Hunt leads 
you into the dark recesses of a recently uncovered 
Pyramid. Will you recover all the treasures or more likely 
will you join its denizens for that long eternal sleep? . . . 

9. GHOST TOWN - Explore a deserted western mining 
town in search of 13 treasures. From rattlesnakes to 
runaway horses, this Adventure's got them all! Just 
remember, Pardner, they don't call them Ghost Towns 
for nothin'. (Also includes new bonus scoring system!) 

10. SAVAGE ISLAND - A small island in a remote ocean 
holds an awesome secret. Will you be the first to uncover 
It? SAVAGE ISLAND Is the first part of a larger, multi- 
part Adventure. It will be necessary to purchase 
additional packages to complete the entire Adventure. 

Cassettes for S-80 Model I or III, and Apple II $14.95 

Disk for S-80 Model I or Apple II, (3 Adventures per disk, 
specify 1-3, 4-6, or 7-9) $39.95 

Adventures 1-9 on a single S-80 Model II Disk $99.95 
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'Note; Apple requires 24K and has no lower case, t Recommended for the novice adventurer, with many built-in HELPS! 
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Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 



© 




"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #1 top selling game! 

$14.95 16K Level I or II 



TRS-80™ 
HOME ARCADE 

AHACK FORCE^ GALAXY INVASION® 
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"Eight alien ramships are warping down 
toward your destroyer ship. You must 
shoot them down quickly before they 
crush you!" With sound! 

$14.95 16K Level I or II 




"The newest and most exciting In- 
vaders-type game yet! Smooth sound 
effects, sharp graphics, and the 'Flag- 
ship' alien from Super Nova combine 
to make this our finest TRS-80 game!" 

$14.95 16K Level I or II 



The SaMw^are Exchange 



6 South SI., Milford. NH 03055 




ORDER TOLL-FREE: 

1-800-258-1790 

(In NH tall 673-5144) 



The Lazy Man's Shortcut to 

Machine 

Language! 



Tiny Comp 




by David Bohike 

A BASIC Compiler in BASIC! Run your source program in BASIC, compile it into FAST Z-80 Code and 
execute the compiled version — all without reloading. 26 integer variables, GOTO, GOSUB, END, REM, RND 
LET, +, *, /, IF, THEN, , =, , INKEY$, CLS, PRINT@, CHR$, PEEK, POKE, Compiled programs may be saved 
via TAPEDISK. 

Supplied with game program, "3D TIC TAC TOE", which uses all of the TINY COMP statement set and is 
ready to compile. 

Manual includes several sample programs as well as thorough documentation of the Compiler for those who like 
to know "how things work" and for those who might even wish to EXPAND on TINY COMP's capabilities. 
Tape version; $19.95 Disk version: $24.95 




6 SnithSln'i-t, Milk>rd,NHOi(m 
ORDER TOLL FREE 

1-800-258-1790 

(in NH Cdll 673 5144) 
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Satisfy your 
craving for 
invasion 
games 



INVASION U 



Now you can continue to play this popular arcade game even 
after you run out of quarters! Shoot down the invading aliens, 
but protect your guns from their bombs. 

Great sound and graphics. (Sound requires external amplifier 

16K Level II cassette $9.95 (plus $1 shipping) 
32K Disk $14.95 (plus $1 shipping) 



T^ 





"^=^ 



seRsatioRal 
software 

SUPER INVASION 

Fifty-five aliens advance and shower you with lethal, writhing electric worms. As you pick off the 
aliens one by one, they quicken their descent. They whiz across the screen, wearing away the 
parapets which are your only defense, coming closer and closer to your level. SUPER INVASION is 
the original invasion game with the original moon creatures. 

32K Apple II cassette $19.95 (plus $1 shipping) 

The SaHwi^te Exchange 

6 South St., MiKord, NH 03055 (603) 673 5144 

ORDER TOLL FREE: (In NH call 673 5144) 

1-800-25S-1790 
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lake your 
Apple Blossom 



HIGHER GRAPHICS 

Complete shape generation, 
manipulation, and utilization tools 
for the programmer. Add 
sophisticated graphic displays and 
effects to your programs. Shape 
Maker, Table Combiner, Screen 
Creator, four shape tables, three 
high-res displays, and the machine 
language graphics routines required 
to produce high resolution graphics 
on the Apple II. 
48K, Integer BASIC $24.95 



HIGHER TEXT 

Print characters in upper case, 
lower case, upside down, 
sideways ... in any color! Script, 
Old English, foreign languages and 
special scientific symbology 
included. Define your own 
specialized or decorative character 
sets. Customized displays without 
any hardware modifications! 
Apple II, Apple II Plus, Machine 
Language Disk . . . $35.00 



MAILING LIST DATA BASE 

Enter and store a list of names 
with associated addresses, phone 
numbers, comments, and code 
designations. List, search, edit, print 
labels; convert prior mailing lists. 
Up to 225 records can be loaded on 
line at any time. 
Applesoft, 48K Disk $34.50 



MODIFIABLE DATA BASE 

Now you can have a data base 
program that can be customized at 
will. The variety of applications is 
endless, limited only by your 
imagination. Machine language 
searches and sorts permit 
immediate access to files. Data 
manipulation - editing, printing, or 
deleting - has never been easier. 
Applesoft, 48K Disk $79.50 




PROGRAM LINE EDITOR 

Full feature line editors for both 
Integer and Applesoft programs. 
Program development and 
modification can now be completed 
in a tenth the time previously 
required. 

Apple II, Apple II Plus, Disk. . . .$40.00 



DUNGEON CAMPAIGN 

Lead an expeditionary force into 
an underground labyrinth, but watch 
out for monsters, pitfalls, poisonous 
vapors, evil sorcerers, and those 
pesky pterodactyls! 

16K Integer 

Cassette $14.95 

Disk $17.95 



WILDERNESS CAMPAIGN 

Free the kingdom of Draconia 
from the clutches of the Evil 
Necromancer! Your party must 
overcome obstacles and defeat 
hostile inhabitants. Explore tombs, 
temples, castles, and ruins, in 
search of gold and magic. 
48K Integer 

Cassette $17.50 

Disk $19.95 

Both adventures on Disk, 48K 
Integer $32.50 
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^ffffM \^ 

Do you still wonder if the 
"limited" disaster at Three 
Mile Island could have been 
averted? Here's your chance 
to decide for yourself, by re- 
enacting the affair. F^USE 
offers you THREE MILE 
ISLAND, a simulation of a 
pressurized nuclear reactor. 

Valves, pumps, turbines, 

filters, and control rods are 

individually activated by 

keyboard command. 

Comprehensive 

documentation provides 

detailed descriptions of the 

operating mechanisms and 

component interactions. 

Are you capable enough to 

prevent a repetition of the 

events in Pennsylvania? Or 

even a bonafide meltdown? 

There's only one way to find 

out 

48K Apple, 

Integer BASIC $39.95 

TSeJH^^ID€ 

6 South St .Miltord, NH 03055 (603)673-5144 
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PRESSUPS 




by Carl and Ellen Weaver 
PRESSUPS is a 16K S-80 program. 

Pressups is another in the series 
of "match wits with the 
computer" games. One player only 
can face the awesome computing 
powers of the TRS-80. However, 
despite its logical prowess, the 
computer does not stand much of 
a chance against a thinking entity, 
particularly one with the capability 
of thinking a couple of turns in 
advance. 

The game itself is simple in 
conception, but intriguing in its 
own way. You are presented with a 
grid composed of squares that 
count as one point each for either 
you or for the computer. There are 
also a number of neutral squares 
which are not worth any points, 
but which serve to allow the 
players to move about the grid. 



Each time a player, be it man or 
machine, claims a square, it 
vanishes and the resulting space 
cannot be crossed again. 

The object of the game is to get 
ahead of the computer and then 
either stymie it, i.e. force it into a 
position where it cannot move, or 
to reach ten points first. The 
computer, it should be noted, is a 
true gentlemachine and allows its 
human counterpart the first move. 
That is all that the player needs to 
ensure victory, provided that there 
are no slipups or wasted moves. 

Try it out and find out just how 
logical you can be. Remember! 
Cogitas ergo you have an 
advantage. 

Variables used in Press Ups 

A$(N,N) = Holds playing squares 
with a number in the center. 



B$ = Temporary storage while 

setting up CHR$. 

C$ = Ditto. 

D$ = Ditto. 

E$ = Holds "TRS-80". 

F$ = Holds players name. 
I = For next loops. 

J = For next loops. 

N = For next loops in move 

routine. 

P = Player's score. 

C = Computer's score. 

Q = Timer loop. 

S = Temporary storage in move 
routine. 
V = Ditto. 
W = Ditto. 

A$(X,Y) = Temporary location in 
move routines. 

A$(X1,Y1) = Ditto. 

Z$ = InkeyS routine. 



10 ' » X I PRESS UPS XXX 

20 ' X I 1 C^tffl. 8 ELLEN HEAVER x i i 

38 ' XXX 15638 HORACE ST. x i x 

n ' XXX GRA(WDA HILLS, CA 913'H x x x 

50 RAM)OH:CLEAR300:DEFSTRS;CLS:DIMA«(8,8),A(7,7),S(8) 
60 PRINTC«H(23):PRINTM06,"F1<ESS lJPS";:FORI=lTO1500:NEXT!aS 
70 F$="TRS-80":iNPUT"INPUT XOJk NAJ€";E$ 

80 iaEN(E»)>9THENas;PRINT"I ASKED FOR YOUR NA«, NOT YOU^ LIFE 
STORY "'!PR'INT"KEEF' IT DOWN TO 9 LETTERS '"iGOTO 70 
90 as:PRINT?t56,"E;E PATIENT tWILE THE COMPUTER DOES A LITTLE hA 

TH" 

99 ' X I X CRtATES PLAYING BOARD IN MEMORY x x x 

xxi puts graphic characters in string arrays x x i 

100 fori=oto8:a$(o,i)=" ":a*<8,i)=" ":a»(i,o)=" ":a$(I, 

8)=" "INEXn 

no D»=CHR*(179);E«=CHR«(191):C$=£<+CHR$(179)+CHR*(179)+e»:B»=B$ 

+E:«+B<+E« 

120 FGF;I=1T07 

130 F0RJ=1T07:A(I,J)=9+((J-1)x7)+(((Ix2)x61)-61):IFJ=10R'J=7TH£N 

170 

1^0 IFI=10RI=7THEN 160 

150 A$(I,J)=Df*(179)+CHR<(IH8)+CHR«(J+'18)+CHR$(179):G0T0 180 

160 a$(i,j)=e<:goto lao 

178 A*(I,J)=C$:G0T0 180 

180 f£XTJ,I 

190 A$(l,l)=CHR»(17°)+CHR*(19)+CHR*(')9)+CHRt(179)!A$(l,7)=CH»(l 

79)-K:HR-$(^9)+CHR»(55)+C«?»(179):A$(7,l)=CHR»(179)+Ctt<«(55)+CHR$( 

19)+CHR$(179):A»(7,7)=af;$(179)+CHR'$(55)+Cf«$(55)+CHR*(179) 

200 CLS: PRINT "REMEMBER - DO NOT USE THE ENTER KEY":FOPJ=1T01000; 

NEXT:PRINT;PRINT"ff YOU GET INTO TROUEiLE - JUST ENTER (H) FOR HE 

LP "':fori=itoiooo;next:pf;int 

210 ffanvw YOU want instructions '"IPRINT 

220 Z»=IM<EY»;IFZ$=""THEN 220 
230 IFZ$="Y"THEN 1170 

239 ' XIX DRAWS EflARD ON SCREEN x x x 
210 CLS!F0RI=1T07 
2S0 F0RJ=1T07 



260 ff J=10RJ=7THEN 290 

270 IFI=lTHENPRINTeA(I,J)-61,(Ixl0+J); 

280 IFI=7THENF'RINTeA(I,J)+61,(lxlfl+J)J 

290 FI=10RI=7THEN 320 

300 IFJ=lTHENF1<»/T0A(I,J)-1,IxlO+j; 

310 FJ=7TtCNPRINTeA(I,J)+5,IxlO+j; 

320 fRINT0A(I,J),A$(I,J); 

330 NEXTJ.I 

310 F^RINTei ,E» ; !PRINTK7,F$; .'PRINTe66,P; :PRINTei21,C; 

350 FB=OTHEN 160 



359 



I I X Cf€a;S FOR EMD OF GAME X X X 



"ANDA»(X1-1,Y1)=" 
"ANDA$(X1+1,Y1+1)=" 
"AN0A$(X1,Y1-1)=" 



"ANDA»(X1-1,Y1+1)= 

"ANDAt(Xl+l,Yl) 

"THEN 370 ELSE 



360 FA$(X1-1,Y1-1)=" 
"ANDA$(X1,Y1+1)=" 
"ANDA$(X1+1,Y1-1) 
100 

370 IFP=CTHENF1*INTI?960," xxxxxxixixxxixTIEGAMEx 
xxxxxxxx ";:FORQ=lTO1000tNE;<TQ!GOTO130 
380 IFC>PTHENF'RINTe960,"x xxxxxxxii SORRY, TFC COMPUTER 
HON! xixxxxxx ";;FORQ=1T01500:NEXTQ;GOTO 130 
390 IFP>CTHENPRINTe960," xxxxxxxx CWCRATULATIONS lYOU HO 
Nxxxxxxxix x";:FORI=lTO1000:ftXT:GOTO 130 
100 IFP=10THEN 390 
110 IFC=10THEN 380 

120 GOTO 160 

130 F'RINTe960," xxixixxxixxxx ANOTJCR GAME ? x x i x 

X I X X X X X"; 

110 z$=inkey$:fz«=""then 110 




continued on next page 
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150 IFZ»="Y"THEN RUN aSE EM) 

159 ' I X I MOVE ROUTINE t x x 

X X X CHECKS FOR ILLEGAL MOVE x x x 

160 X$=INKEY$:i=I+i:in=30THENI=0 

170 IFI>20TtCNF1<INTe982,"YOUR MOVE";!PRINTM(X1,Y1),S(N)!:GOTO 1 

90 

180 PRINTI?982," ";:PRINTM(X1,Y1)," "; 

190 F'RINT(?1,E«;:FX»="H"THEN llOO ELSEIFX»=""ThCN 160 ELSEX=ASC( 

X»)-18:F1?INTe996,X; 

500 Y»=INKEY»:i=I+]:iFI=30THENI=0 

510 IFi:>20TtCNPf:;INT(?982,"YOUR M0V£";;PRINTM(X1,Y1),S(N)!;G0T0 5 

30 

520 IFY»="H"THEN 1100 ELS£F'RINT9982," ";:F'RINT0A(X1,Y1), 

II II f 

530 IFY$=""THEN 500 ELS£Y=ASC(Yt)-18:F'RINT(»998,Y; 

510 IFB=OTHEN 560 

550 in(>Xl+10RX<Xl-iaRY>Yl+10(<Y<Yl-lTfO 610 

560 E:=1:FX>70RX<10RY:>70RY<1THEN 610 

570 ffA»(X,Y)=" "TfCN 610 

580 IFA«(X,Y)=e»THENF'=P+l 

590 IFA«(X,Y)=C*THENC=C+1 

600 Fi<iNTeA(xi,Yi)," ";:a$(x,y)=" "!PRiMTeA(x,Y)," ";:g 

OTO 620 

610 F1<INTe982, "ILLEGAL MOVE ";:FOR'0=1T01000:MEXTQ!GOTO 16 



620 IFP>?THEN 390 aSEFC:>9THEN 380 

630 F'RINTei21,C;:PRIMTe65,P; 

610 X9=X:Y9=Y;G0Sie 1160 

650 F0RN=lT08:iFS(N)=" "THEN 660 ELSE 670 

660 »OTN!G0T0 370 



669 



XXX COMPUTER'S MOVE LOGIC x x x 



670 IFX=2ANDY=2M)A»(l,2)=e»WCA$(2,l)=C»WCLEFT$(A»(l,l)»l)=0«T 

^CNN=l:GOTO 960 

680 IFX=2AM)Y=6AN0At(l,6)=«$ANDA»(2,7)=C»WCLEFT«(A$(l,7),l)=0$T 

HENN=3tG0T0 960 

690 in<=6ANDY=2W<)A$(6,l)=C*ANDA$(7,2)=e*AM)LEFT»(A$(l,7),l)=0»T 

t€NN=7:G0T0 960 

700 IFX=6ANDY=6tf«A$(6,7)=C$A(«)A$(7,6)=8«AM)LEFT»(A»(7,7),l)=MT 

HENN=5:G0T0 960 

710 FQRN=lT08:iFS(N)=" "THEN 770 

720 GOSUB 970 :W=XlxlO+Yi:V=XxlO+Y 

730 IFH=22A«)A*(M)=" "THEN 960 

710 IFW=26ANDA$(1,7)=" "HCN 960 

750 IFW=66AWDA$(7,7)=" "Tf£N 960 

760 IFW=62A(«)A$(7,1)=" "THEN 960 

770 NEXTN 

780 FV=77AN0A$(7,6)=8»WI)A$(6,6)=" "THENN=8:G0T0 960 

790 IFV=71ANDA$(7,2)=e*ANDA$(6,2)=" "THENN=1!G0T0 960 

800 IFV=llAM)A$(l,2)=e$ANDA$(2,2)=" "THENN=1:GOTO 960 

810 IFV=17ANDA«(l,6)=e*««)A»(2,6)=" "TtCNN=8:GOT0 960 

820 F0RH=1T08:FS(N)=" "THEN 810 

830 FS(N)=C$THEN 960 

810 NEXTN 

850 F0RN=lT08:FLEFT*(S(N),l>=O*TttN 870 

860 NEXTNiGOTO 920 

870 FORI=1T010 

880 N=RND(8):G0SUE 970 :IFX1=20RX1=6THEN 900 

890 FLEFT$(S(N),1)=()$THEN 960 

900 NEXTI 

910 N=RM)(8):FLEFT»(S(N),1)<>0»THEN 910 ELSE 960 

920 F0RN=1T08;IFS(N)=" "THEN 910 

930 IFS(N)=e*THEN 960 

910 (£XTN 

950 GOTO 370 

960 GOSUB 970 ;G0T0 1070 



970 »#«0T0 980 , 990 , 1000 , 1010 , U20 , 1030 , 1010 , 105 



980 X1=X-1:Y1=Y-1:G0T0 1060 

990 X1=X-1!Y1=Y:GOTO 1060 

1000 xi=x-i:yi=y+i:goto io60 

1010 X1=X:Y1=Y+1{GOTO 1060 

1020 xi=x+i;yi=y+i:goto io60 
1030 xi=x+i:yi=y:goto io60 

1010 X1=X+1:Y1=Y-1!G0T0 1060 

1050 xi=x:yi=y-i:goto io60 

1060 RETURN 

1070 FA»(Xl,Yl)=C*THENC=C+i:P1<INTK,P;:PRINTei21,C; 

1080 IFA$(X1,Y1)=*»THENP=F'+1 

1090 A$(X1,Y1)=" ":GOTO 350 



1099 ' 



X X X HELP MODULE x x x 



1100 as:PRINTC*'$(23):PRINTM70,"YOU RANG ?"!FORI=lTO10O0:NEXn 

;CLS 

1110 PRINT"HOULD YOU LIKE ...":F'RINT"(I) INSTRUCnONS":PRINT"(B) 
Ett«0 REDRAWN WITH SAME POSITIONS":PRINT"(N) t€M Gtt£" 
1120 Z»=INKEY$:FZt=""T}CN 1120 
1130 FZ$="I"THEN 1170 
1110 FZ«="B"TfCN 210 

1150 fz»="n"them«jn 

1160 s(1)=a$(x9-1,y9-1):s(2)=a«(x9-1,y9):s(3)=a$(x-1,y+1):s(1)=a 

$(x9,y9+1):s(5)=a»(x9+1,y9+1):s(6)=a$(x9+1,y9):s(7)=a«(x9+1,y9-1 

):s(8)=a$(X9,y9-i):return 



1169 ' 



X X X INSTRUCTION MODULE x x x 



1170 CLS;G0SUB ISIO :PRINTK08,"YOU score ONE POINT HfCN OfE OF" 
|:PRINTe272,"THE SOLID SQUARES IS F1AYED.";:G0SUB 1330 
1180 GOSUB 1320 ;FiaNTMflO,"TI€ COMPUTER SCORES HHEN";:PRINTeiA1 
,"ONE OF THE HOLLOW SQUARES"!. 'FftlNTreZS/'IS PLAYD.";:GOStB 1330 

1190 F0RY=2T06:pRINTeA(5,Y),0»;" ";D$;:ftXTY:PRINTe656,"THE OTH 
ER SQUARES ARE NEUTRAL"; :PRINTe720, "AND DO NOT SCORE FOR EUHER. 
"JiGOSUB 1330 

1200 CLSIGOSUB 1310 tGOSUB 1320 :PRINTe208,"Wfe YOU PLAY A PFC 
E ...";;PRINTe272,"n DISAPfE:ARS.";;F0RI=2T06;pRINTeA(l,I)," 

";:forj=itoi25:mextj,i;fori=2to6:f«intw(i,7)," "!;forj=itoi2 
5 : next j, i : gosub 1330 

1210 print(?100,"when ttc computer fiays a square,"! ;printm61, "i 
t flashes ... until you play."! 

1220 A»=INKEY$:i=I+i:iFI=30TfCNI=0 

1230 FI>20THENPRINTeA(1,l),C«;ELSEPRINTeA(1,l)," "5 

1210 IFA*=""ThCN 1220 

1250 CLSIGOSUB 1310 :F1<INTe208,"THIS IS IMPORTANT ...YOU OR";:PR 
INT9272,"THE COMPUTER MAY FlAY ANY SQUARE") :F1<INTe335," NEUTRAL, 
SOLID, OR' HOLLOW"! :F1?INTe399," HOWEVER, T« SQUARE PLAYED MUST 
eE"!:PRINTI?161,"MXWCENT TO THE PREVIOUS ONE FLAYED."! 
1260 GOSUE: 1330 

1270 PRINT(?592,"FINAaY ..."i:PRINTe656,"IF EIT>CR YOU OR THE CO 
fPUTER IS"!:F'RINTe720,"UNABl£ TO iWE, TtC GM^ ENDS,"!:PRINTe78 
1,"AM) WHOEVER IS AHEAD WINS."! tGOSUB 1330 
1280 as:PRINTI?208,"F THIS DOES NOT ^WfEN TtO";:PRINTK72,">« 
OEVER GETS 10 POINTS FIRST" :!PRINTe336, "IS THE WINNER '"itPRINTg 
161, "IF YOU HAVE A PROELEM JUST ASK"!;pRINTe528,"F0R (H) tCLP."! 
;pRINTe656,"Y0U STW<T TtC GAME BY SELECTING"! 
1290 PRINT072O,"ANY NEUTRAL SQUARE"! 
1300 GOSUB 1330 tGOTO 210 

1310 F0fiI=2T06;F'RINTeA(l,I) ,B»! :PRINTeA(7,I) ,B«! :NEXTI! RETURN 
1320 F0RI=2T06:F15:INTI?A(I,1),C$!:PRINTM(I,7),C$!!NEXTI:RETURN 
1330 PRINTe985,"<Hn ANY KEY>"!:a$=INKEY$:FA$=""THEN 1330 ELSER 
ETURN 



® 
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FROm THE FOLKS THRT 
BROUGHT VOU 




BUCKJACK MASTER 



Unlike other Blackjack programs that emptiasize graphics and fun, BLACKJACK MASTER 
Is a serious game. Perlorming complex simulations and evaluations ot playing and betting 
strategies, BLACKJACK MASTER will tutor you in this premier gambling game. Documenta- 
tion included. 

S-80 Level II Cassette $19.95 

S-80 Disk $24.95 

APPLE ASSEMBLY UNGUAGE DEVELOPMENT SYSTEM: 
ASSEMBLER/EDITOR/FORMAHER 

Write and modify your machine language programs quickly and easily. Features a cursor- 
based editor, global and local labels, and disk-based macros which allow you to incorporate 
frequently used subroutines into any program. Documentation Included. 



. $39.95 



Apple II Disk 

SUPER APPLE BASIC 



A structured BASIC that compiles an optimized Applesoft or Integer BASIC program. 
Features labelled subroutines, jumps, and the use of variable names ot up to ten characters. 
DocumentatHHi Included. 



. $39.95 



Apple II Disk . 
REVERSAL 



REVERSAL is an Othello game for your Apple II computer. It pwmits you to piay against the 
computer, against a human opponent, or to set up specific boards for strategic brainstorm- 
ing. By the authors of the tournament-winning chess program "Sargon II." 

Apple Cassette $29.95 

32K Apple II Disk $34.95 
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[fILSE 

LEADER IN QUAtlTV SOFTWARE 

The VOICE gives your Ap- 
ple the power of speech. 
The VOICE has a standard 
vocabulary which may be 
used to speak in an 
endless combination of 
phrases; or you can 
record your own 
vocabulary and make 
your Apple say anything 

you please. 
Each data disk stores up 
to 80 words or phrases 
that can be sorted for 
quick reference. Further- 
more, The VOICE allows 
you to speak from any 
BASIC program by using 
PRINT commands. 
48K Apple II or 
Apple II Pius 
$39.95 
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oson 

We set the standard. 



muMATH is a symbolic 
math package you'll recognize 
immediately as a major 
advance in microcomputer 
software. 

muMATH lets you efficiently 
and accurately perform the 
most complex mathematical 
operations. Exact, infinite 
rational arithmetic. Unbound 
variables. Complex 
expressions (even equations 
may be included). Exact 
solution of algebraic 
equations. Plus logarithmic, 
exponential and trigonometric 
simplifications and 
transformation. 

It does in an Instant what 
took you years to learn at 
school. Rational arithmetic. 
Algebra. Trigonometry. 
Transcendental functions. 
Symbolic differentiations. 
Symbolic integration of 
indefinite and definite 
integrals. Matrix arithmetic 
and algebra. 

muMATH Is written in 
muSIMP, which is included in 
the muMATH package. 
muSlMP is an applicative, 
recursive language, ideal for 
describing complex 
mathematical concepts. 

Because of its highly 
interactive nature and 
hierarchical structure, 
muMATH is an excellent math 
teaching device, from simple 
arithmetic to calculus. 
S-80 32 or 48K Disk 

$74.95 + $3 




^_ The SaHniare Exchange 

MM ORDER TOLL-FREE; (in NH call 673-5144) 

1-800-258-1790 



CP/M Is a registered trademark of Digital Research 



cs 
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I III 



ANDROID NIM 

TM 

The newest version of TRS-80's first animated graptiics game — An 

droid NIM — now with more animation and sound! 

Level II. 16K $14.95 

BEE WARY 

This fast-paced real time action game is a contest between a Bee 
operated by the player and a Spider operated by the computer. 
Machine language subroutines, but loads as Level II for easy opera 
tion $14.95 

SNAKE EGGS 

Here isa computerized reptilian version of 21 complete with arrogant 
snakes and appropriate sound. Level II 16K $14.95 

LIFE TWO 

Two in one: Game of Life, at an astounding 100 generations a minute, 

plus Battle of Life with animated creatures and sound. 

Level II 16K $14.95 

DUEL-N-DROIDS 

You are the Fencing Master and all you need to do is train your An- 
droid by making him duel the machine's androids. After he is train- 
ed, enter him in the Tournament and sit back and enjoy the fun. 
Features included in this game are: sound effects, extensive graphic 
displays & multiple playing levels. 
Level II, 16K Cassette . . . $14.95 Disk $20.95 
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ATARI 



® 



A Warner Communicalions 



Company ^M 



PADDLE 
CONTROLLERS 




MEMORY MODULES 



HARDWARE 

ATARI 400 Computer System, 8K $499.00 

ATARI 800 Computer System, 16K $849.00 

ATARI 410 Program Recorder $79.00 

ATARI 810 Disk Drive $599.00 

ATARI 815 Dual Density Disks $1299.00 

ATARI 820 Printer (40 col.) $499.00 

ATARI 822 Thermal Printer $389.00 

ATARI 825 80/132 col. Printer $869.00 

ATARI 830 Acoustic Modem $169.00 

ATARI 850 Idterfae Module $189.00 

MACROTRONICS Parallel Printer Int $64.95 

ATARI Light Pen $64.95 

16K RAM Memory Module $169.00 

ATARI Joystick Controllers $18.95 

ATARI Paddle Controllers $18.95 

ATARI 800 Dust Cover $7.95 

ATARI 400 Dust Cover $7.95 




ATARI" 410" PROGRAM RECORDER 




JOYSTICK 
CONTROLLERS 




SOFTWARE 



ROM PROGRAMS 



BasketbaU - cassette $39.95 

Music Composer - cassette $59.95 

Basic Electricity - cassette $29.95 

Educational Sys Master - cassette $29.95 

Basic Sociology - cassette $29.95 

Effective Writing - cassette $29.95 

Biorfaythms in BASIC - cassette $14.95 

Blackjack - cassette $14.95 



TS&HnROSIDC 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



Hangman in BASIC - cassette $14.95 

IntrfMiuction to Programming in BASIC - cassette $19.95 

U.S. Goverment - cassette $29.95 

Worid History - casestte $29.95 

Business Communications - cassette $29.95 

Kingdom in BASIC - cassette $14.95 

Basic Algebra - cassette $29.95 

U.S. Htetory - cassette $29.95 

3D Tic Tac Toe - cassette $39.95 

Physics - cassette $29.95 

Chess - cassette $39.95 

Great Classics - cassette $29.95 

Principles of Economics - cassette $29.95 

Star Raiders - cassette $59.95 

Super Breakout - cassette $39.95 

Principles of Accounting - cassette $29.95 

Spelling - cassette $29.95 

Basic Psycholf>gy - cassette $29.95 

Editor Assembler - cassette $59.95 

Supervisory Skills - cassette $29.95 

Video Easel - cassette $39.95 
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LEARN MICRO-COMPUTERS 

(Sceibi) 

A new multimedia information 
package. Includes text 
("Understanding Microcomputers") 
plus high-quality cassette. For the 
beginner just starting in 
microcomputers. Covers all the 
basics quickly, easily and enjoyably. 
Companion tape includes chapter- 
by-chapter synopsis of the book. 
$14.95 plus $1 
TAKE MY COMPUTER . . . PLEASE! 

S. Ciarcia (Sceibi) 

An uproariously funny book about 
the true-life misadventures of author 
Steve Ciarcia and his computer's 
inability to cooperate. Hardcover. 
$5.95 plus $1 

MICROCOMPUTER POTPOURRI 

(Sceibi) 

A pocket-sized reference for the 
beginner. Has a really great glossary 
covering all the jargon. Full digest on 
understanding microcomputers. 
$3.95 plus $1 

CALCULATING WITH BASIC 
R.Guido (Sceibi) 

Use your computer to calculate 
home mortgage payments, interest 
rates, payback periods and more. 
Complete routines already worked 
out for problem solving using BASIC 
language. Also includes 
mathematics, finance and statistics, 
mechanical engineering and 
electronics. $8.95 plus $1 
PERSONAL INFORMATION 
MANAGEMENT SYSTEM 

(Sceibi) 

When you're in business you've got 
a personal stake in how information 
is managed. 

PIMS will allow you to unleash the 
power of a microcomputer - and you 
don't have to become a programmer 
first. Use a computer for accounts 
receivable . . . accounts payable . . . 
maintain inventory records . . .run a 
mailing list . . .keep track of credit 
charges. 

It is a ready-to-use data base 
management program for computers 
like the Commodore PET and Radio 
Shack TRS-80. $11.95 plus $1 

LITTLE BOOK OF BASIC STYLE 

J IW Nevfson (Addison-Wesley) 

Ideal reference for BASIC 
programmer, junior high to research 
scientist. Indexed, illustrated, 151 
pages. By John M. Nevison $5.95 
plus $1 



USING CP/M 

Fernandez & Ashley 

CP/M — the Control 
Program/Microcomputers 
software package — is the most 
widely used microcomputer 
operating system. With it, tens of 
thousands of users operate their 
microcomputers and perform 
routine work functions. Now two 
authors of bestselling Wiley 
computer books present a 
complete, detailed introduction to 
the use of CP/M for maximum 
capability and efficiency — with 
any hardware, using any 
programming language. 
$8.95 plus $1 

Z-80 AND 8080 ASSEMBLY 
LANGUAGE PROGRAMMING 

K. Spracklenl (Hayden) 

The best introduction to assembly 
language we sell. You should have 
experience in BASIC. $7.95 plus $1 

Z80 INSTRUCTION HANDBOOK 

N Wadsworth (Sceibi) 

Convenient pocket-size manual 
describes Z80 capabilities in easy-to- 
understand terms. Designed as a 
practical reference to mnemonics, 
machine codings, usage. For 
programmers of every level - 
beginner to professional - anyone 
working in Z80 machine or 
assembler language. Appendixed. 
$5.95 plus $1. 
THE SECRET GUIDE TO COMPUTERS 

(Sceibi) 

A quickie course on computers. 
$5.95 plus $1 

TRS-80 ASSEMBLY LANGUAGE 
PROGRAMMING 

W. Barden Jr. (Radio Shack) 

Covers Z-80, and introduction to 
Assembly Language, the Radio 
Shack Editor/Assembler and T-Bug, 
and debugging methods; also 
explains how to move data, the use 
of arithmetic, compare, logic, and bit 
operators, shifts, strings, tables, 
input and output, and 12 commonly 
used subroutines. Well indexed and 
illustrated. $3.95 plus $1 

SOME COMMON BASIC PROGRAMS 

by Lon Poole and Mary Borchers 
(A. Osborne/MoGraw-HMI) 

A collection of 76 programs you 
will not have to write for yourself. 
Each program is presented with 
BASIC source code, operating 
instructions, and verbal description. 
If you're a student or a 
beginning programmer, you can 
learn from this book what well 
designed and documented programs 
look iil^e. 
$12.50 plus $1 

PATHWAYS THROUGH THE ROM 

R.M.Richardson. R. Fuller. J. T.Phillipp.G. Blank, J. 

Hartford 

(SoftSide Publications) 

The definitive guide to Level II 
BASIC. Includes Super Map by Fuller 
Software. The TRS-80 Disassembled 
Handbook by Robert Richardson, 
HexMem by J. Philip, Z-80 
Disassembler by George Blank and 
DOS Map by John Hartford. $19.95 
plus $1 
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TRS-80 DISK AND OTHER 
MYSTERIES 

H, Pennington 
(IJG) 

The serious programmers' guide to 
Disk BASIC and the wonders of 
NEWDOS +. $22.95 plus $1 
6502 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

R. Findlay 
(Sceibi) 

Includes instruction set, floating 
point and decimal arithmetic, search 
and sort routines, and more. $12.95 
plus $1 

FORTRAN IV, 2nd Ed. 

J. Friedmann. Ph D.. P. Greenberg. Ph.D . A. M. 
Hollberg. CPA, MBA 
(Wiley & Sons) 

This revolutionary new edition of 
the standard FORTRAN guide is 
heavily oriented to personal 
computers. 

FORTRAN, 2nd Ed. gives complete 
explanations - with comparative 
tables - of the new standards for 
FORTRAN developed in 1977. 
Whether you use FORTRAN 77 or 
FORTRAN IV, the authors point out 
all the differences and let you follow 
whichever version is right for your 
machine. You'll start writing basic 
FORTRAN almost immediately, then 
learn standard extensions and 
advanced options. Previous data 
processing background and access 
to a computer are unnecessary. 
$10.95 plus $1 
LEARNING LEVEL II 

Dr. DA. Lien 
(Compusoft) 

The User's Guide to Radio Shack 
Level II BASIC. $15.95 plus $1 

SARGON HANDBOOK 

D. Spracklen, K. Spracklen 
(Hayden) 

Complete documentation covering 
all algorithms in Sargon can be 
found in this guide book. Contains 
complete table of contents, block 
diagram of the program, four part 
introduction, Z-80 listing, index to 
subroutines. Fully annotated. 
$15.95 plus $1 

Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

N. Wadsworth , (Sceibi) 

Over 100 usable subroutines, plus 
how to use them. $15.95 plus $1 

RUNNING WILD 

by Adam Osborne (A. OsborneyMcGraw-Hlil) 

Shows how the microelectronics 
revolution came about, and gives an 
insider's look into how it's shaping 
your future. Everyone who's 
concerned with the future, needs to 
read this book, it's written for the 
layperson to help you understand 
the "whys" and "hows" of this 
amazing new technology. And It 
sounds an urgent warning to us ail. 
$3.95 plus $1 
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CP/M SOFTWARE SUMMARY 
GUIDE 

{ Rainbow Associates) 

Rainbow Associates announces the 
CP/M Software Summary Guide — a 
concise, tiandy summary of the 
major software used on most CP/M 
systems. Included are summaries of 
tfie CP/M operation system, 
Microsoft BASIC, CBASIC™, and the 
CP/M utilities DESPOOL™, MAC™, 
and TEX. 
$4 95 plus $1 
THE BASIC HANDBOOK 

by Dr David Lien 
(Compusoft) 

This book is unique. It is not a 
textbook. It's far more than a 
dictionary. It is a virtual 
ENCYCLOPEDIA of the BASIC 
language. 
$14.95 plus $1 

UNDERSTANDING 
MICROCOMPUTERS 

(Scelbi) 

Here are the answers to hundreds 
of questions about microcomputers. 
Written in simple English, You get 
the fundamental concepts behind the 
operation of virtually all 
microcomputers. Convenient 
glossary covers all the key words. 
$9.95 plus $1 

APL - AN INTERACTIVE 
APPROACH 

L Giiman, A.J. Rose 
( Wiley and Sons) 

This revised second edition has 
been renamed to reflect the fact that 
several versions of APL are currently 
being offered. In recognition of 
APL's growing use in business 
applications, more examples have 
been included, and the body of the 
text itself has undergone a modest 
shift in orientation toward 
commercial uses of APL. 
$16.95 plus $3. 

WHY DO YOU NEED A PERSONAL 
COMPUTER 

by Lance Leventhal (Wiley and Sons) 

No competing book includes any 
discussion of how to program in 
BASIC, much less an application- 
oriented discussion. Nor does any 
do more than mention different 
peripherals, interfaces, etc. No 
competing book discusses 
maintenance or describes the 
various sources of information in 
detail. 
$8.95 plus $1 

TRS-80 INTERFACING 

J A Tilus 

(HW Sams& Co) 

What you need to know to connect 
your TRS-80 to the world. Assumes 
knowledge of some machine 
language programming. 
$8.95 plus I $1. 

TRS-80 INTERFACING - Book 2 

by Titus, Titus, and Larsen 

(HW Sams & Co) 

Introduces you to more 
advanced interfacing techniques 
that allow you to do new things 
with your TRS-80 computer. 
$10.95 + $1 



STIMULATING SIMULATIONS, 
2nd Edition 

by C W Engel 
(Hayden) 

An exciting handbook containing 
twelve "simulation programs," which 
are actually game programs. Each 
program is presented with a listing, 
sample run, instruction, and program 
documentation, including flow chart 
and ideas for variations. 

$5.50 plusSi 

A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING AND 
MICROCOMPUTERS 

by 8. Frelberger, and P. Chew Jr. 

(Hayden) 

Both an introduction to the 
principals of microcomputers that 
assumes no previous knowledge on 
the reader's part, and a review of 64 
microcomputer products from over 
50 manufacturers. 
$8.95 plus$1 

TEN EASY PIECES: CREATIVE 
PROGRAMMING FOR FUN AND 
PROFIT 

by H. Sagan and C. Meyer 
(Hayden) 

An introduction to the BASIC 
language through computer games 
Written in an informal style, it 
stimulates interest in creative 
programming of games of chance 
and of skill. 
$7.95 plus $1 

You needn't know anything about 
assembly language programming to 
use our Assembly Language 
Programming Series. Each book is a 
self-teaching textbook written in a 
standard format and containing the 
entire instruction set for the specific 
microprocessor. 

Each book explains assembly 
language programming, describing 
the function of assemblers and 
assembly instructions, and 
discusses basic software 
development concepts. 

Z80 Assembly Language 
Programming 

S-80 users can save both time and 
computer memory by learning to 
program in assembly language. 
$16.99 plus $1 

6502 Assembly Language 
Programming 

Teach your CBM or Apple 
computer some new tricks. Increase 
the capabilities and performance of 
your PET/CBM or Apple computer by 
learning to program in assembly 
language. 
$16.99 plus$1 
INTRODUCTION TO LOW 
RESOLUTION GRAPHICS 
N. Wadsworth (Scelbl) 

Now you can produce amazing 
computer graphics - even if you can't 
draw a straight line. Literally! Learn 
how to draw lines and shapes, make 
graphs, draw pictures and even do 
animation. 
$11.95 plus $1. 

THE MIND APPLIANCE: HOME 
COMPUTER APPLICATIONS 

by T.G. Lewis 

(Hayden) ' 

Chock full of unique and 
challenging ideas for applying your 
computer to home use. Make your 



computer write poetry, balance a 
checkbook, dial a telephone 
automatically, handle household 
budgets, menu planning, shopping 
lists, and income tax calculations. 
Dozens of BASIC language 
programs. $9.55 plus $1 

UNDERGROUND GUIDE TO 
BUYING A COMPUTER 

(Scelbi) 

This book is a guide to buying 
a microcomputer. Computers, 
like people, come in all sizes. 

The most popular 
maxicomputer has been the IBM 
370 (which is being replaced by 
the IBM 3030 and the IBM 4300); 
the most popular minicomputer 
is the PDP-11; the most popular 
microcomputer is the TRS-80 . 
But before you buy a computer, 
look at the competition. IBM, 
DEC, and Radio Shack aren't the 
only fish in the sea; some of 
their competitors have something 
to offer, too. Treat a computer 
purchase just as you'd treat any 
other important decision — 
check out all the facts. 
$5.95 plus $1 

PET/CMB PERSONAL COMPUTER 
GUIDE 2nd Edition 

by Carroll Donahue and Janice K Enger 
(A. Osborne yWcGraw-HIII) 

A step-by-step guide that 
assumes no prior knowledge of 
computers. It contains a wealth of 
information on everything from 
keyboard variations to a detailed 
description of PET memory. 
Included are: Complete operating 
instructions for keyboard, tape 
cassette, and disk units; 
Descriptions of ail PET/CBM BASIC 
statements; Optimal PET/CBM 
BASIC programming techniques, 
including input/output programming, 
file handling, strings, random 
numbers, and screen editing; 
Solutions to many programming 
problems, CBM computer 
capabilities, and limitations. 
$15.00 plus $1 

AN INTRODUCTION TO 
MICROCOMPUTERS Volume 1 
•Basic Concepts (Revised) 

by Adam Osborne (A. Osborne'/McGraw-Hlli) 

Using concepts that are common 
to all microprocessor systems. 
Volume 1 developes a detailed 
picture of what a microcomputer 
can do, how it does what it does, 
and how the particular capabilities 
of microcomputers can best be 
applied in any practical 
environment. 

This new revised second edition 
incorporates all recent 
microprocessor developments and 
is the most comprehensive and up- 
to-date introduction to 
microprocessor systems available 
anywhere. 
$12.50 plus $1 

VINYL BINDERS 

Quality vinyl binders with 12 metal 
rods, perfect for storing your back 
issues of SoftSide. $4.95 +$1 
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ADVANCED 

AIR TRAFFIC 

CONTROLLER 

This real-time machine language 
program puts you in the chair of a 
busy air-traffic controller. 27 prop 
planes and jets are depending on 
you as they take off, land and fly 
over your air space You give orders 
to turn, maintain a holding pattern, 
change altitude, approach and land 
at either of two airports. 

Written by an air traffic controller, 
this realistic fast-paced simulation 
includes navigational beacons and 
the requirement that planes take off 
and land into the wind The 
program's continuously variable 
skill level assures that you wont 
soon tire of this instructive and 
absorbing simulation 

In Air Traffic Controller you 
assume responsibility for the safe 
flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude 
During your shift as a controller in 
charge of this airspace 26 aircraft 
become active and under your 
control. Jets and prop planes have 
to be guided to and from the two 
airports, navigational beacons and 
ten entry/exit fixes. The aircraft 
enter the controller's airspace at 
various altitudes and headings 
whether or not you are ready. 

Air Traffic Controller retains the 
basic realism of air traffic control. 
This program requires the same 
steady nerves under pressure and 
the same instant, almost instinctive, 
analyses of complex emergencies 
which are demanded of a 
professional air traffic controller 
But "ATC" adds the excitement and 
well-defined goals of a game. This 
is just a simulation, and all 
passengers left in air traffic limbo 
Dy a panicked player will live to 
fly another day. 

Air Traffic Controller Is ^^ 
available for the 16K TRS-80, the 
Apple II, and Apple II plus on 
cassette for $9.95 

TO ORDER 
TOLL-FREE 

1-800-258-17901 

(In NH cm 673-5144) 
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ALL NEW VERSION! 

by Lance MIcklus 
Adventure International 



Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in conrimand of the 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega VI 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes; 

playboard 8 by 3 by 3 

quadrants; weapons system 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems: Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K $14.95 
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mjsE 

THE LEADER IN QUALITY SOFTWARE 




Best of Muse 

Here's a collection of five 
programs that MUSE has 

previously offered on 

cassettes for your Apple. 

Included are: Maze Game, 

Escape, Side Shows (six 

different games), Tank War, 

and The Music Box. 

Programs are either in 

Integer BASIC or Machine 

Language. Here is a wide 

variety of Apple software on 

a single disk, ready to 

provide you with endless 

entertainment. 

16K Apple Disk, Integer 
BASIC/ Machine Language 
. . . $39.95 
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-Detecting the language- 

Any game published in SoftSide 
must now function properly in 
both Level II and Disk BASIC. 
For most programs, this is no 
problem, as all Level II commands 
also work in Disk BASIC. Level II 
and Disk differ in the way they 
handle machine language 
subroutines. Because of this, a 
program must be able to detect 
which language it's running in. 

Described here are a couple of 
techniques that tell the program 
which BASIC it's in. First, I want 
to describe the method used in 
"Ship Destroyer" ( page 60) as it 
is the ' easiest to understand. 

If we look at line 35 we find an 
error trapping routine which sends 
all errors to line 15000. Following 
the error trap, we find the 
command CMD"T". This 
command will not generate an 
error in Disk BASIC, but it will in 
Level II. This is our key to 
determine the BASIC. If we are in 
Level II we are transferred to line 
15000 where the variable FL is set 
to one. We then RESUME at line 
36 where the error trap is 
cancelled. 

What we accomplished was to 
set a flag, variable FL. This 
method is not the easiest to use, 
but probably the easiest to 
understand. 

An easier way to accomplish this 
task is as follows: 
35 IFPEEK(16396) = 201THENFL = 1 

This works because Disk BASIC 
changes the value of this address 
when it's present. .^J, ^^ 




USING 

CV/M 

by J. Wiley and Sons 

How to use the CP/M 
operating system 

$8.95 + $1 

T36JHPiTOSIIX 

6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 790 



At \dts\. the sequel to the "Temple of Apshai." 
Dunjonquest's newest, "Hellfire Warrior," adds 
four more levels to the lowest reaches ofApshai's 
dunjon. Undead and fiery demons roam 
seemingly endless labyrinths, gobbling up all but 
the hardiest warriors. If you are a beginner, 
perhaps you should explore other regions first, 
for "Hellfire Warrior" is for only the most 
hardened. 

Cassette $24.95 

Disk $29.95 
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SoftSide JANUARY. 1981 



39 



COMPUTER SPACE 




by William Edmunds 

Computer Space is an Apple 
program which requires 16K of 
RAM and Applesoft. 

The alarm sounds, the rush for 
battle stations begin. As you slip 
into the command chair, you see 
the enemy ship turning its ominous 
laser turrets in your direction. 
Your immediate response is to kick 
in the thrusters to move out away 
from the approaching beams of 
death. 

You are the commander of the 
Interstellar defense ship 
"BELCREST." Your mission is 
simple: Defend the system against 
the pirate ships from the next 
sector . 

WARNING!!! The pirates 
existence depends upon their 
ability to win space battles, 
therefore, they are very efficient in 
their operations. It takes a good 
pilot to defeat the trained enemy. 

Can you take command of the 
"BELCREST "and lead it to victory 
against the enemy??? Here's your 
chance. COMPUTER SPACE!! 

To control your ship, use the 
following keys: 
Rotate ship left 1 

Rotate ship right 2 

Apply thrust 3 

Fire torpedos (space bar > 

The Crept > key can be used in 
conjunction with any of the above 
keys. 

Variables 
XS, YS: Earth ship speed. 
XP, YP: Ship position. 
R: Rotation 
SHIP: Earth's score. 
SM: Ship missile flag. 
XM, YM: Ship missile position. 
XI, YI: Missile move or increment. 
AX, AY: Alien position. 
SX, SY: Alien move. 
ALIEN: Alien's score. 



C: Counter for alien movement. 

AM: Alien missile flag. 

MX, MY: Alien missile position. 

IX, lY: Missile move or increment. 
DX, DY: Used in computing alien 

missile trajectory. 

X, Y: X and Y screen limits. 
TIME: Game timer. 

I, J, K: Temporary variables. 
H: Used to convert rotation 
to radians. 

Z, U, T, W: Numbers 0, 1, 2 and 3. 
V, L: Numbers 5 and 15. 

ST: ASCII 176 for stop. 
RL: 177 for rotate left. 
RR: 178 for rotate right. 
TH: ASCII 179 for thrust. 
FI: 160 for fire missile. 



10 GOSUe lOOO; if peek (802) < 
> 8 OR PEEK (801) < > 16 OR 
F€EK (872) < > 55 THEN GOSUB 
1500! POKE 232,32: POKE 233, 
3 
20 PRINT ; PRINT " HH RETURN 
TO CONTINUE. "',', GET A»;i = 
TO (0): GOSUB 1300 
Move alieri. 

100 C = C + 15 IF C > = L THEN 1 

60 
110 ROT= Z! SCALf= U!I = AX'.J = 

ay:ax = I + sx; IF ax > = x 

THEN AX = AX - X 
120 F AX < Z THEN AX = AX + X 
130 AY = J + SY: IF AY > Y THEN A 

Y = AY - Y 
HO IF AY < Z THEN AY = AY + Y 



150 XDRAW T AT AX.AYt XDRAH T AT 

I,J 
Cofipi.rte alien nissile trajectory. 

160 IF C = L THEN DX = XP - AX - 

V - v:dy = YP - ay - vtsx = 

W 1 ( INT ( RND (U) m) - U 
):SY = H X ( INT ( RND (U) x 

H) - U):ah = z: hcqlor= z: hfiot 
hx.hy; f abs (XS) > y / v or 

AES (YS) > Y / V THEN XS = 

z:ys = z:c = z 

180 IF C < = L then 300 

190 C = Z: F RND (U) x V > U AND 

DX + DY > 50 THEN 300 
200 IF ALFN > SHP AND RND (U) 

X H > U THEN 300 
210 W1 = U:DX = OX + (XP - AX - V 

- V - DX) X g:DY = DY ♦ (YP 

- AY - U - DY) X y: F DX > 
TJ€N DX = DX - X 

■ X / T THEN DX = D 



X / T 
220 IF DX < 

X + X 
230 IF DY > 

Y 
2'»0 F DY < 

Y + Y 
250 I = AES 

(V + H) 

) X DY / IJhX ■■ 

ix:hy = ay + V 



Y / T THEN DY = DY 



- Y / T T>0( DY = D 



(DX) + tes (DY):n = 

X DX / i:iY = (V + H 
: AX + V + V + 
+ lY 



Display tine. 

300 TIHE = TIME - U:i = Hit / V: 
F I = INT (I) THEN HTAE; 
17: PRINT i;" "',', F NOT I THEN 
BOO 
Read keyboard. 
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305 K = F€EK ( - 16381)! POKE - 

16368,2; IF I < Tt€N 820 
307 ff K = ST THEN 975 

Move earth ship. 

310 ROT= R: IF K = RL THEN R = R 

-TJffR<ZTHENR = 62 
320 F K = RR THEN R = R + T! ff 

R > 63 THEN R = Z 
330 F K = TH THEN XS = XS + COS 

(R 1 H)!YS = YS + SIN <R I 

H) 

310 I = xptj = yp:xp = I + xs: if 

XP> =XT>CNXP = XP-X 
350 ffXP<ZTHENXP = XP + X 
360 YP = J + YS: ff YP > Y THEN Y 

P = YP - Y 
370 FYP<ZTHENYP = YP + Y 
380 SCA£= V - U: XDRAH U AT I,J 

: ROT= R: XDRAH U AT XP.YP 

Hffjc alien nissile. 
100 IF NOT Mi THEN 500 
110 ff C THEN HCX1L0R= ZJ HFIOT 
«X,MY 

120 MX = HX ♦ n:MY = NY + iy: F 

HX> =XTHENHX = MX-X 
130 F«X<ZTHENMX = KX + X 
HO F MY > Y THEN MY = MY - Y 
150 IF MY < Z THEN MY = MY + Y 
160 I = MX:J = MY*. HCOLQR= H'. HPLOT 

I,J 
170 FHX>XP-V-H»i)MX< 
XP + V + HAM)MY>YP-V- 
HAMDHY<YP + V + HTHEN GOSUB 
900*.WJEN = ALIEN + UI HTAB 

32; PRINT alien; ;a« = z;xs = 
z;ys = z; scale= v - u; rot= 
r; xdww u at xp,yp;r = r + 
io; ROT= r; xdww u at xp.yp 

;FR>63THENR = R-61 
Fire earth nissile. 
500 FK = FIAND NOTSMTHENX 
I = V I COS (H I R);YI = V 1 
SIN (HiR);SH = U;XM = XP + 

n + n;YM = yp + n + n; goto 

570 
Move earth nissile. 
510 IF NOT SM THEN 100 

550 SM = SM + u: hcolor= z; HPLOT 
xm,ym: fsh>lthensh = z 
: goto 100 

560 I = xm;j = ym:xm = xm + xi;ym 

= YM + n;FXM>AXANDX 
«<ftX + L + V»l)YM>AYftND 

y«<ay + v + vtwn Gosue 

90D:SHIP = ship + i: HTAB 2: 

PRINT SHff;;sM = z: goto 18 
e 
57ex« = XH + n:FXM> =xtheh 

W = XM-X 
580 FXh<ZT»CNXM = XM + X 
S90YM = YI + YM;FYM>YTHEN 

YM = YM- Y 
618 FYH<ZTHENYM = YH + Y 

610 HcaDR= h: hpldt xm,ym: f x 



M > AX AND XM < AX + L + V AND 
YM > AY AW) YM < AY + V + U THEN 

I = xm;j = ym; Gosm 90o:shi 

P = SHF' + i: HTAE 2; PRINT 

shf;;sm = z 

620 goto 100 

End of qane roiitine. 

800 HTAB li; INVERSE ; PRINT "GA 
ME OVER": NORMAL : PRINT "HI 
T 'ESC TO CONTINUE, OR '0' 
TO QUIT."; 

810 ROT= r; scale= V - u; xdrah 

U AT XP,YP 

820 F K = ST THEN 975 
830 TIME = - U; IF K = 155 THEN 
TIME = 751 : VT(*! 23; HTAB i; 
FOR I = 1 TO 79: PRINT " "; 

; NEXT ; VTAB 23:sHip = z;al 

FN = Z; SCALE= V - U: ROT= 

r:am = z;sM = z; xdr^ u at 

XFVYP 
850 FC = LT1€NC = Z 
860 GOTO 100 
E;'q>losion< 

900 ROT= i; FOR K = 2 TO 5 

985 SCALE= K 

910 XDRAH H AT I,J 

920 ftXT 

925 FOF: K = 30 TO 150 STEP 5 

930 POKE 768,K; POKE 769,V: CALL 

770 

935 NEXT 

910 FOR K = 2 TO 5 

915 SCALE=K 

950 XDRAH H AT I,J 

955 «xr 

960 RETURN 

E>dt progran. 

975 TEXT : HOME ; POfOE - 16298, 


985 END 
Initialize variables. 

1000 z = o;u = i;t = 2:h = 3;v = 

5;L = 15 

1810 X = 28o;y = i55:k = z:i = z; 
j = z 

1020 H = 3.11159 / 32 
1038 XP = ieo;YP = BOJAX = 200 : AY 
= 50 

1010 SM = ZJW1 = z:c = z 

1850 RL = 177:RR = 178;TH = 179;S 

T = 176JFI = 168 
1860 TIME = 751 

Instructions. 

1100 TEXT : HDIt : VTAB 3: HTAB 
7 

1118 PRINT "COMPUTER SP 

ACE" 
1120 HTAB 7: PRDfT " 



1130 PRINT ; PRINT " THIS IS T 
HE APPLE VERSION OF THE OLD 
m:tf£ GAME." 

1110 PRINT ; PF:INT " YOU CONTR 
X YOUR SPACE CWfT HHH THE 
KEYEOAFD. KEY ♦! AM) #2 ROT 
ATE YOLR" 

1150 PRINT "SHIP LEFT AND RIGHT, 

KEY ♦S APPLFS THRUST I 

N THE DIRECTION YOU ARE FACT 

m," 

1160 PRINT "THESE KEYS CAN E£ US 

ED WITH THE REFtAT KEY FOR 

LARGE CHANGES IN HEADING OR" 
1170 PRINT "SPEED. THE SPACE BA 

R IS USED TO FIRE YOUR MIS 

SLES," 
1180 FflNT ; PRINT " TO END TH 

E GAME TYPE #0." 
1200 RETURN 
Drau HGR page. 
1300 HGR ; HCOLOR= H 
1310 FOR I = 5 TO 279 STEP 5 
1320 HFIOT I, RND (U) i Y 
1330 NEXT 
1310 ROT= Z; SCALE= U: XDRAH T AT 

AX.AY 
1350 SCALE= V - U; XDRAH U AT XP 

,YP 
1360 C = 11 
1370 VTAB 2i: HTMi 1 
1380 PRINT "EARTH";; PRINT T<«( 

30) "ALIENS" 
1390 F'RINT TAB( 15) "TIME" 
1100 RETURN 
Load sound roi.itine and shape table 
fron data, 

1500 C = 770; READ A$; GOSUB 1600 

1530 C = boo; for K = 1 TO 3 
1510 REM) A$; GOSUB 1600: NEXT 

1550 c = z;r = z; retuw 

1600 FOR I = 1 TO LEN (A$) STEP 

2 
1610 R = ASC ( Mm (A»,I,1)) - 

18 
1620 F R > 9 THEN R = R - 7 
1630 J = ASC ( MID* (A$,I + 1,1) 

) -18 
1610 ffJ>9THENJ = J-7 
1650 POKE C,R I 16 + J 
1668 C = C t 1! NEXT : RETURN 
Data. 
2008 DATA "AD30C088O005CE01O3F0 

09CAD0F5<€88D31C028368" 
2810 DATA "830088B810802F8e3C3C3 

63625252D0e92^3625212C2D2C" 

2820 DATA "0C652D7575352D353537 
35373F37BFBF3FE7E7273F3F08" 

2838 DATA "123E3C272D21373F2C2C 

25272D2E2E2C3627372E2E313E3E ^m. 
213780" ^ 
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A Microsoft Adventure 

for the TRS-80 and Apple 

Here is the granddaddy of the computer Adventure games. Microsoft Adventure, 
from the people who wrote BASIC for personal computers, places you in "Colossal 
Cave," where both treasures and perils abound! Here you can find gold, silver, 
jewelry, magic items, and precious pottery. But you may also find threatening 
dwarves, trolls, large green snakes and a giant oyster. Meet the pirate and the 
computer wizard. See the volcano and sulphur lakes. 

As you become more skilled in overcoming obstacles and avoiding hazards, more 
regions of the cave will open up to you. Keep your wits about you and you may 
eventually become a Grand Master. Slip up and you may not become anything, if 
that. It all depends upon your ability and your ingenuity. 

When your adventure begins, you will find yourself outside of the cave. From 
there on in you must tell the computer what you wish to do by means of one- or two- 
word commands. Sometimes the computer might offer to help you with a small hint, 
but remember, there's no free lunch! You will have to do most of the work, including 
learning to use magic, yourself. Look for allies in unexpected places and you might 
surprise yourself. But above all, enjoy! 



S-80 version 32K disk 

$29.95 

Apple version 32K disk 

$29.95 




The 
Software 
Exchange 

6 SouthStreet,. 
MilfordNH 03055 



TO ORDER TOLL-FREE 

1-800-258-1790 

(In NH call 673-5144) 







AVIBC. 
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PINBALL n 




by Thomas Deaux 

PINBALL II is a game program 
written for the APPLE II in 
Integer BASIC with machine 
language subroutines. It requires a 
minimum of 16K RAM. 

Pinball II is modelled to 
approximate a typical arcade 
pinball machine. It makes use of 
low resolution graphics with text 
(mixed) mode. 

The ball server (lower right) is 
used to bring the ball into play. It 
is activated by depressing the -4— 
arrow key. Each time the'*- key is 
depressed, the ball server pulls 
back one notch, and the release 
velocity of the ball increases. 
When the — ►key is depressed, the 
ball server is released, and the ball 
moves up the ball chute and onto 
the playing surface. What happens 
after that is controlled both by 
chance and by the skill of the 
player. The element of skill comes 
into play (as it does on an arcade 
pinball machine) with the use of 
the flippers. 

There are three flippers, two to 
the left and right of center at the 
bottom, and one at the left edge 
near the top. They are activated by 
depressing any key (except RESET, 
CTRL, or SHIFT). When 
activated, they extend, then retract 
at a rate determined by the level of 
difficulty selected. The bottom two 
flippers are defensive in nature, 
and are used to prevent the ball 
from leaving the playing surface. 
The top flipper is used for 
offense, and may be used to take 
shots at the top row of drop 
targets and the "score bonus" 
hole. The "score bonus" hole 
appears after all four of the top 
targets have been hit. 

A bonus is made when any of 
the 12 drop targets are hit. 
Bonuses appear on the right side 
of the screen as they are made. 
Their value depends on the state of 
the bonus multiplier. The score is 
1 ,000 for each bonus times the 
value of the bonus multiplier. The 
value of the bonus multiplier 
increases when all four targets in 
any of the three banks are hit. It 
also increases when the ball enters 
the "vkp bonus multiplier" kickout 
hole. Bonuses are scored at the end 
of the ball in play, or when the 
ball enters the "score bonus" hole. 

The spinner (in the middle) 



scores points or bonuses. The 
return lanes allow the ball to pass 
over the flippers (but you better hit 
the flippers or it will drop out of 
play). The exit lanes normally 
allow the ball to leave the field, 
but there is a gate on the right and 
a kickout hole on the left which, 
when activated, save the ball. The 
kickout hole scores an extra ball. 
The game is fast-moving and, as in 
real pinball, sometimes frustrating. 
But don't give up because, with 
practice, you can get to be a 
"Pinball Wizard." 
DOCUMENTATION 
Line(s) Description 

10-40: Transfers control to the 

initialization program (30000) 

Subroutine; POKEs the period and 

duration of a musical note, then 

calls the routine to generate it. 

51-75: Subroutine; adds a score to 

the total score and prints the total 

score. 

100-1600: Subroutines; There is 

one subroutine here for each color. 

100 is for COLOR 0, 200 is for 

COLOR 1, etc. One of these 

routines is called each time the ball 

is moved. 

5000-5400: The main loop. The 

ball is moved, and a subroutine is 

called according to the color it hit. 

When a key is hit, the flippers are 

extended, then retracted. 

(5250-5400). 

6000-6100: Serve logic. The-*- key 

pulls the server back, and the-^key 

releases it. If the server is not 

pulled back far enough, the ball 

will bounce back down onto the 

server (6080-6100). If it is pulled 

back far enough, the ball enters 

the playing field. 

15000-15190: When the ball leaves 

the playing field the program 

transfers here. The BALL number 

is incremented, and if the game is 

over, the TRY AGAIN ? response 

is input. 

20000-22020: Plots the playing 

field, and transfers control to the 

serve logic (6000). 

23000: Subroutine; draws a 

"thumper bumper." 

240(X): Subroutine; draws the 

perimeter of a "kickout hole." 

25000: Subroutine; increments the 

bonus count, and plots the bonus. 

25100: Subroutine; increments the 

bonus multiplier, and prints its 

value. 
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25200: Subroutine; scores all 

bonuses. 

28000-28110: Initializes the 

musical notes for the introductory 

song. 

28120: Subroutine; plays the 

introductory song. 

30000-30270: Initialization. Inputs 

experience level, and if the player 

is a beginner, prints instructions. 

Transfers control to the section 

which plots the playing surface 

(20000). 

31000-31010: Subroutine; tests to 

see if the score is large enough to 

print the PINBALL WIZARD 

message. 

3 1 1 00-3 1 1 30: Prints the current 

high score. 

32000-32005: POKEs the musical 

note generation subroutine into 

memory between addresses 2 and 

20 (decimal). 

PINBALL II VARIABLE LIST 

Variable Description 

X: X ball position, from to 39. 
Y: Y ball position, from to 39. 
A: Change in the ball's position in 
X. -1 moves the ball to the left. 
B: Change in the ball's position in 
Y. -1 moves the ball up. 
V: X + A (new X ball position). 
W: Y + B (new Y ball position). 
E: Experience level constant. Used 
to cause the flippers to remain 
extended for a longer period of 
time for a beginner than for an 
advanced level. 

C: The color of the screen under 
the projected ball position (V,W). 
D: The color of the screen under 
the ball, i.e. the color that used to 
be where the ball is now. 
F: Gravity variable. F is set to the 
number of iterations to wait before 
causing friction to slow the ball 
down. F is used to make the ball 
have the tendency to move toward 
the bottom of the screen. 
P: The period of a musical note. 
Z: The duration of a musical note. 
S: The score for hitting a scoring 
feature, e.g. a bumper, divided by 
10. That is, S = 1,000 scores 
10,000 points. 

T: The low order part of the total 
score, divided by 10. T has a range 
from to 10,000, representing a 
score from to 100,000. 
H: The high order part of the 
total score. Each increment in H 
represents 100,0(X) points. 

continued on next page 
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TS: The value of T for the current 

high score. 

HS: The value of H for the current 

high score. 

J: A flag which is set to -1 when 

the flippers are activated. It is reset 

to when the flippers have 

extended and retracted. 

K: A flag which is set to -1 when 

the flippers have fully extended. It 

is reset to when the flippers have 

retracted. 

L: An integer used to plot the 

flippers while they extend and 

retract. L ranges from up to E, 

then back to 0, in increments of 3. 

O: An integer which represents the 

number of steps the ball server has 

been pulled back. O ranges from 

to 10. 

BM: Bonus multiplier. Each bonus 

scores BM times 1,000 points. BM 

ranges from 1 to 9. 

BC: Bonus count. BC ranges from 

0to40. 

SBC: Save bonus count. Stores the 

value of BC temporarily. 

BALL: Ball number. BALL ranges 

from 1 to 5. 

G: Extra ball flag. G is set to -1 

when an extra ball is scored. 

R: An array which holds the 

periods of the musical notes for 

the introductory song. 

U: An array which holds the 

durations of the musical notes for 

the introductory song. 

I: A loop index and miscellaneous 

variable. 

DELAY: A loop index for the 

delay loops. 

M: The Y value of the top point 

of the ball server. 

N: The distance the ball will travel 

according to how far the ball 

server has been pulled back. 

Q: The distance the ball has gone 

since it was served. 

BF: Used to simulate the ball 

bouncing off the ball server. This 

happens when the ball is not 

served hard enough to leave the 

ball chute. 



10 GOTO 30800 

40 POKE O.P; POKE l.Zt CftLL 2', 

RETURN 
51 T=T+S; F T<10000 THEN 60;T= 

t-idooo:h=h+i: gosub sisoo 

60 VTftB 215 TftB 7t PMMT HtJ F 
T>999 THEN 75J F T>99 THEN 
70: F T>9 THEN 65*. PRIMT "900" 
5*. GOTO 75 

65 PRINT "00" 5: GOTO 75 

70 PRINT "0"; 

75 PRINT t;"0"; 

100 F=F-1J F F#0 T«N RETURN ; 
F= RM) (3)+5J F B=l THEN RETURN 



\b^V, RETURN 

ZOO b=-b:a= rno (3)-ij f v=i then 
a=i:f= rnd (20)+25: goto n 

300 A=-A;B=-B!F= RM) (5)+5: GOTO 

n 

100 A=-AJe= R» (Z)JF= RM) (8)+ 

S: GOTO 10 
500 F M>25 THEN 550tfr=lJB=l)!M= 

H-i: C0L0R=115 WJN 28.30 AT 

i:f=6: goto io 
550 a=-i:b=o:h=4<-i5 colqr=i: hjn 
31,36 at 37j color=05 plot 

31,36:F=6: GOTO 10 

600 sec=€c: Gosue 252od:bc=sbc: 

C0L0R=115 VLIN 10-BC,39 AT 
39: GOTO 10 
700 A= RND (3)-i:B=r.Z=35P=5i: FOR 
1=0 TO RND (10)+10: VT^ 22 
: TAB 3i: GOSUB 750+101(1 HOD 

5):p=p-i; gosub io; next i 

710 GOTO 720+(I-l) MOO 5i5 

720 FOR 1=1 TO 5: GOSUB 25000: rEXT 

i: GOTO 10 
725 5=500: GOSUB 5i: GOTO ID 
730 S=1000: GOSUB 5i: GOTO 10 
735 S=2000: GOSUB 5i: GOTO 10 
718 GOSUB 25000: GOSUB 25000: RETURN 
750 PRINT "+5 BONUS";: RETURN 
760 PRINT "+5,000 "j: RETURN 
778 PRINT "+10,000 "j: RETURN 

788 print -+28,000 "',', return 
798 print "+2 bonus"!: return 
800 a=-a:b=-6:s=50o: gosub 5i:z= 
80: gosub 25000: colqr=0: f 

Y<8 THEN 850 
805 \UN tt-l,>H-l AT Vl FOR 1=13 
TO 22 STEP 3: F SCRN(V,I) 

*e THEN 18: NEXT i: GOSUB 25100 
811 FOR 1=13 TO 22 STEP 3: a]LQR= 

7: VUN 1,1+1 AT V: GOSUB 25800 

: )EXT i: GOTO 18 
850 HIN V-1,V+1 AT HI FOR 1=8 TO 

20 STEP i: F SCRNa,6)« THEN 

18: iCXT I 
866 FDR 1=8 TO 28 STEP i: COLOR= 

7: HUN 1,1+1 AT 6: GOSUB 25888 

: GOSUB 25000: NEXT I 
870 C0L0R=13: HUN 11,16 AT 2: HUN 

11,16 AT 1! HUN 11,16 AT 3 

: C0lilR=5: PLOT 15,3 
880 GOTO 10 
908 A= RM) (3)-1:B= RM) (3)-lJS= 

18 : GOSUB 5i:z=io: goto io 

1008 A= RND (3)-1:B= RM> (3)-l!S= 

so: GOSUB 5i:z=2o: goto io 

1180 A= RND (3)-1:B= RND (3)-i: GOSUB 
25100: CALL -198: RETURN 

1200 cm. -198:b=-i:afi: color=o 

: MJN 28,30 AT i: TAB (D: 
VTtB (23): POKE 50,63: PRINT 
"EXTRA BWl": POKE 50,255!G» 

-1!F=5;h=h-i: goto io 

1388 A= RM) (3)-i:6= RND (3)-i:S= 

loo: GOSUB si:z=io: goto is 

1180 A= RM) (3)-i: RETURN 



1500 a=«:b=-i;f= mo (i5)+i5; goto 

10 
1600 A= RND (3)-1:B= RM) (3)-i: F 

A+e=0 TtEN 1608: RETURN 
5008 D= SCRN(X,Y): C0LaR=15: PLOT 

x,Y:v=x+A!H=f+e; f w>39 tun 

15e88:C= SCRN(V,H): F C*8 AND 
F<6 then F=5 

5280 p=8ic:z=2: GOSUB dioo+ioo: 
coLOR=o: plot x,y:x=vjy:*: 

F PEEK (-16381X128 THEN 

5218: POKE -16368.o:j=-i:l= 
8:k=8: color=8: mjn 11,26 at 

37 
5205 HLIN 1,12 AT 10 
5210 F J#-l THEN 5800 
5250 F K»-l THEN 5308:L=L-3: F 

L=0 THEN 5260: F L>9 THEN 

5086: COLOR=0: HJN L+l,L+3 
AT lO: MJN 26-L,28-L AT 37 

: HLIN L+8,L+10 AT 37: GOTO 

5008 
5268 K=6:J=8: goto 5818 
5300 L=L+3: F L<18 THEM 5100 : F 

L<E THEN 5808:K=-1: GOTO 5258 
5100 COLOR=i; HLIN L+l,L+3 AT 10 

: hun l+8,l+10 at 37: mjn 
2b-l,30-l at 37: goto 5088 
6000 o=8:x=37:y=29! colqr=i5: plot 

X,Y: C0LaR=2: VUN 38,39 AT 
37: CQLQR=8: VLIN 1,2 AT 27 
6810 K= PEEK (-16381): F K<12B THEN 
6018: POKE -16368,0: F K=136 
THEN 6020 : F K=119 THEN 6838 
: GOTO 6810 

6020 0=0+1 : F o>io TWN 0=10 :y= 
29+o: coLOR=i5: PLOT x,y: color= 

O: PLOT X,Y-r. GOTO 6016 
6036 A=0:^-1:H=30+O:N=12iO+ RND 

(5):q=o:p=2o:z=3 

6010 »H<-i: F MOO THEN 6050: COL0R= 

2: PLOT 37,N 
6050 Q=Q+i: F Q>N TIEN 6070 :D= SCRN( 

x,Y): coLOR=i5: PLOT x,y:v= 
x+a:h=y+b: f scrn(v,h)=2 then 
GOSUB 308: cglqr=d: plot X, 
y:x=v:y=h 

6055 F Y=18 THEN A=-l! F Y=l TIEN 
B=0: C0L0R=2: F X=26 TIEN 
VLDi 1,2 AT 27: GOTO 6010 

6070 F X>27 THEN 6080:8=11 GOTO 
5000 

6080 BF=(29-Y)i10/15 

6085 F Y>=10 THEN 60981 COLQR=e 

: PLOT x,y:x=x+i:y=y+i: couf= 

is: plot X,Y: goto 6885 

6098 color=o: plot x,y:y=y+i: cou]r= 
is: plot x,y: f y<29 tien 

6090:BF*i10/15: F BF=8 t«» 
6000 
6188 FOR 1=1 TO BF: FOR DE1AY=1 TO 

s: NEXT delay: colcr=o: plot 
x,Y:Y=Y-i:coui=ist plot x,yj 

NEXT i: GOTO 6098 
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IStet COLQR=0 
ISeil HON 11,25 AT 37 
15815 HON 1,12 AT 18 
15828 PUIT X,Y 
15825 GOSUB 25288 
15138 F T+n#fl THEN BAI1=«1L+1+ 
G! VT« (23): T« (D: PRWT 



15818 IF itLL<h THEN 15118 


15058 VJtB (23) 


15855 TAB (11) 


15868 PRINT "TRY AGAIN (Y/N)?" 


15870 1= PEEK (-14381) 


15888 F K128 THEN 15070 


15890 POKE -16368.8 


15100 F 1=206 T>€N E)© 


15101 COLDR=0*. PLOT 37,29 


15185 GOTO 30128 


15110 VTAB (23) 


15120 TAB (17) 


15130 PRINT "BALL "JBALLJ 


15110 h=i:y=i 


15150 x=8:a=i;b=o 


15175 HLIN 11,16 AT 2? ftlN 11,16 


AT 3: HIH 11,16 AT 1 


15180 (a]L0R=15 


15190 k=o!l=o:j=o 


28000 C(]LOR=D 


20010 ytlN 28,30 AT 1 


20020 PLOT 35,37 


20030 HLIN 11,16 AT 2 


20010 HIN 11,16 AT 3 


20050 HLIN 11,16 AT 1 


20160 axss(=i 


20170 HLIN 5,25 AT 


20180 HLIN 8,10 AT 37 


20190 HON 26,28 AT 37 


20200 HON 0,3 AT 10 


20300 (».0R=2 


2O310 FOR 1=0 TO 3 


20320 J=3-I 


20330 VUN 1,1+1 AT J 


20310 NEXT I 


20315 PLOT 1,0 


20350 FOR 1=28 TO 36 


28360 J=I-26 


20370 WJN J,J+1 AT I 


20380 PLOT I+1,J-1 


20390 NEXT I 


20395 HUN 26,29 AT 


20100 WJN 9,39 AT 38 


20110 VLIN 32,33 AT 1 


20120 HLIN 5,6 AT 33 


20130 HLIN 6,7 AT 31 


20110 HUN 7,8 AT 35 


20150 fUN 28,29 AT 35 


20160 HUN 29,30 AT 31 


20170 HLIN 30,32 AT 33 


20180 PLOT 32,32 


21000 (».0R=3 


21010 VLIN 5,39 AT 


21020 VLEN 12,39 AT 36 


21030 WJN 28,39 AT 2 


21010 VLIN 29,39 AT 31 


21858 ULBi 28,31 AT 1 



25100 BH=«Hi: IF B«>9 THEN BH=9: 
VTAB 22J FOR 1=1 TO 5J TAB 
18t CALL -198: PRINT " "5: FOR 
DELAY=1 TO 5: tCXT DELAY: TAB 

ib; PRINT bm; 

25110 FOR DELAY=1 TO 5: NEXT DELAY: 

NEXT i: RETURN 
25200 F BC=0 THEN RETURN : COLOR= 

o:s=8«iioo: for j=io-«: to 

39; plot 39,J: GOSUB 51:P=R( 

vRi3):z=u(j+i3): GOSUB 10 : neh 



21060 yUN 29,31 AT 32 


j:Br,=o: return 


21098 (».OR=i: PLOT 0,10 


28808 R(1)=68:R(2)=68:R(3)=15:R(1 


21200 (3]L0R=1 


)=15:R(5)=15:R(6)=15:R(7)=15 


21210 HIN 3,7 AT 37 


:r(8)=15:r(9)=15:r(io)=15 


21220 HLIN 29,33 AT 37 


28010 R(11)=51:R(12)=51:R(13)=61: 


21100 (».QR=6 


R(11)=68:R(15)=57:R(16)=51: 


21110 HLIN 17,18 AT 20 


R(17)=51:R(18)=51:R(19)=51: 


21500 nm nR=7 


R(20)=51 


21505 F G=0 THEN 21510:G=0: GOTO 


28020 R(21)=51:R(22)=51:R(23)=51: 


21600 


R(21)=57:R(25)=61:R(26)=57: 


21510 F BtiLn THEN 21600 


R(27)=51:R(28)=61:R(29)=57: 


21515 FOR 1=8 TO 20 SI tP 1 


R(30)=57 


21520 HIN 1,1+1 AT 6: NEXT I 


28038 R(31)=57:R(32)=57:R(33)=57: 


21510 FOR 1=13 TO 22 STEP 3 


R(31)=57:R(35)=57:R(36)=57: 


21550 VLIN 1,1+1 AT 5 


R(37)=61;R(38)=68:R(39)=61: 


21560 VLIN 1,1+1 AT 33 


R(ie)=57 


21578 NEXT I 


28010 R(11)=57:R(12)=61:R(13)=61: 


21600 1=8 


R(11)=68:R(15)=61:R(16)=68: 


21610 J=9 


R(17)=31:R(18)=38:R(19)=38: 


21620 X=8 


R(5fl)=15 


21630 Y=18 


28058 R(51)=51:R(52)=68 


21610 UUSUB 23000 


28668 U(1)=32:U(2)=32:U(3)=61:U(1 


21650 X=22 


)=61:U(5)=61:U(6)=61:U(7)=61 


21660 Y=18 


:U(8)=128:U(9)=6i:U(18)=61 


21670 imB 23000 


28078 U(ll)=6i:U(12)=6i:U(13)=61J 


21680 X=15 


U(11)=192:U(15)=6i:U(16)=61 


21690 Y=25 


:U(17)=6i:U(18)=6i:U(19)=32 


21700 UJKIft 23000 


:U(20)=96 


21710 1=9 


28088 U(21)'=128:U(22)=6i:U(23)=61 


21720 J=12 


:U(21)=6i:U(25)=6i:U(26)=61 


21730 X=15 


:U(27)=160:U(28)=6i:U(29)=61 


21710 Y=ll 


:U(30)=61 


21750 RnaP 23000 


28090 U(31)=6i:U(32)=6i:U(33)=6i: 


21760 COL0R=10 


U(31)=128:U(35)=6i:U(36)=61 


21770 PLOT 27,9 


:U(37)=6i:U(38)=6i:U(39)=61 


21800 C0L0R=13 


:U(10)=192 


21810 X=26 


28100 U(11)=6i:U(12)=96:U(13)=6i: 


21850 Y=8 


U(11)=32:U(15)=128:U(16)=128 


21860 GOSUB 21000 


:U(17)=128:U(18)=96:U(19)=32 


21900 a)L0R=11 


:u(5e)=i28 


21910 HLIN 17,19 AT 36 


28110 U(51)=128:U(52)=255 


22000 l=-i:j=o 


28120 FOR R=l TO 52:P=R(R) :Z=U(R) 


22020 GOTO 6000 


: \mKi io: next r 


23000 COLOR=i: HLIN X,X+5 AT Y: HLIN 


28130 RETURN 


X,X+5 AT Y+5: ULIN Y+1,Y+1 AT 


30000 TEXT : an. -936: V\PB 5: T« 


X: WJN Y+1,Y+1 AT X+5: C:OLOR= 


lO: PRINT "MR niC TO PINBALL H 


J: HLIN X+2,X+3 AT Y+2; HLIN 


II 


X+2,X+3 AT Y+3: RETURN 


30018 VTAB 18 : TAB i: PRINT "PLEASE SE 


21000 C0L0R=13: HLIN X,X+2 AT Y: HLIN 


LECT YOUR [BB. OF PLAY:": VTAB 


X,X+2 AT Y+2: PLOT X,Y+i: PLOT 


13: TAB a: print "l = UtUlNNER" 


X+2,Y+i: I^TURN 


: PRINT 


25000 BC=6C+i: F BCMO THEN BC=10 


30020 TAB 8: PRINT "2 = EXPERIENCED" 


: coLbR=ii: plot 39,io-bc: return 


: PRINT : im s: print "3 = prof 



30030 



30050 

30070 
30080 

30081 



ESSIWM." 

X= PEEK (-16381): F X<128 THEN 

30030: POKE -16368,0: F X< 

177 OR X>179 TJCN 30830 :Y=31 

-6i(X-176):E=Y 

m=8:h=i : A=i :b=o :c=o :d=o :f=5 
:p=o:z=o:j=fl:L=o 

GOSUB 32000 

F X#177 THEN 30110: OIL - 
936: VTAB 3: TAB 17 
PRINT "INSTRUCTIONS": VTAB 

continued on next page 
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Strategic Simulations 




Historic wargaming may be the only intellectual hobby which creates more in- 
tensely devoted fanatics than home computing. When two wargamers spend an 
evening refighting a famous battle, they'll spend several hours happily setting 
up the gameboard, firepower charts, unit strength tables and so forth. . .all 
before the first shot can be fired! There are such paper and pencil simulations 
of every famous battle from Shiloh to El Alamein. If you've ever tried one, 
you already know the excitement and challenge of trying to be a better general 

than Rommel. 

If you've got an Apple II Plus (or an Apple II with Applesoft Firmware ROM 
Card) with 48K memory and a 5 Vi" mini floppy disk drive, you can be play- 
ing Computer Bismarck in a few days. For $59.95, you can get the game pro- 
gram disk, two mapboard charts (for plotting secret strategies in grease pencil 
between moves), two ship data charts, two system command cards, a loading 
instruction sheet, and a rulebook $59.95 

Computer Bismarck is also available for the S-80 

Level II on cassette for $49.95 

Disk $59.95 




AMBUSH 



Computer controlled mapboard of a typical French village. 

Step-by-step computer regulated play. 

Extensive line of sight rules providing for hidden movement. 

Each soldier individually rated for strength, intelligence, dexterity, and 

marksmanship. 

Realistic weapons, characteristics, and explosives. 

Sophisticated movement rules permitting running, walking, crawling, dodging, 

and sneaking. 

Simultaneous execution of orders. 

Ability to save a game in progress and restart it at a later date. 

Playing time 1 to 5 hours. 48K Apple Machine Language - Disk $59.95 

TheSattware Exchange 

6 South St., Milford, N.H. 03055 
TO ORDER TOLL-FREE 

1-800-2S8-1790 

(In N.H. call 673-5144) 





6: PRINT "SERVING DC WLL',' 


t VTAB 8: HUNT TUSH TW LEH ft 


KMIH KEY UNTIL TIE" 


30182 PfONT "BALL SHOOTER IS BACK AS F 


« ftS YOU LIKE.": PRDfT "MN PU 


SH THE RIGHT ARROH KEY TO SERVE- 


: PRINT "THE BWl." 


mW VT« 15: PRDCT "FUPPERS:": 


VT« 17: PRINT "Hn WIY KEY TO 


ftCTWATE TIC FLIPPERS.": PRINT 


"THEY HTII EXTEND, MO THEN KLIR 


ACT." 


30086 VT« 20: T« 7: PRINT "(HIT Mft 


KEY TO BEGIN)" 


30090 K= PEEK (-14381) 


30100 F K<1Z8 TtCN 30090 


30110 POKE -16348,0 


30115 DIN R(52).U(5Z) 


30120 GR : CALL -936 


30122 fmja 28000 


m75 x=io:y=i:a=i: colo^is 


30130 IF HS>H THEN 30170 


30110 IF H5<H T)CN 30160 


30150 IF TS>T TtCN 30170 


30160 H»44:TS=T: GOSUB 31100 


30170 VTAB 2i: TAB i; PRINT "SCORE:" 


;go6UESi: vtab 21: tab 21: print 


"HIGH score:'': gosub 31100 


30175 s=o:tt=o:T=o: uisir si 


30180 BALL=1 


30190 V\m 23 


3020O tab 17 


30210 print "BALL ";BALLJ 


30210 VTAB 22: TAB i: PRINT "BONUS ML 


tipitfr: X" 


30250 BM=i: VTAB 22: TAB 18: PRINT 


BhJ 


30260 V\PB 22: TAB 23: PRINT "SPIWCR: 

H 


30270 GOTO 20000 


31000 IF Ht(E/8>2) TtCN RETURN 


31010 VJtB 23: TAB 27: POKE 50.63 


: PRINT "PD«4L HEARD" :: POKE 


50,255: RETURN 


31100 VTAB 21 : T« 32: PRINT HSj: 


ff TS>999 T«N 31130: ff TS> 


99 T»CN 31120: F TS>9 T«N 


31110: PRINT "000";: goto 31130 


31118 PRINT "00";: goto 31130 


31120 PRINT -0"; 


31130 PRINT TS}"0"; 


32000 POKE 2,173: POKE 3,18: POKE 


1,192: POKE 5,136: POKE 6,208 


: POKE 7,i: POKE 8,198: POKE 


9,i: POKE 10,210 


32005 POKE 11,8: POKE 12,202'. PWE 


13,208: POKE 11,216: POKE 15 


,166: POKE 16,0: POKE 17,76 


: POKE 18,2: POKE 19,0: POKE ^^ 
20,96: RETURN Q 
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miiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

FLOPPY DISK 
DIAGNOSTIC 





Now includes memory 
diagnostic at the same price 



The best and most complete diagnostic 
you can buy to verify disk drive reHabiiity 
and find problems. Displays 19 error 
messages and cross references them 
to 14 possible causes. Continuous 
test option for exhaustive testing 
keeps statistical record of all errors 
found. 



• 35 or 40 track in same program 

• Tests controller functions and 
status bits 

• Tests drive speed and allows 

adjustment 

• Tests switches and mechanical 

components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read 

tests using ail possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cylinder interference 

• Tests drive-to-drive compatibility 

Supplied on diskette with manual for 
only $24.95. 




TS€d-IPI^ID€ 

6 South St.Miltord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-«IO-258-1790 

kiiiiiriiiiiiiiiiiiiiiiiiiiiiiiiiiiinii 



STAD 



RAMWARE 



Unlock the power of the Z-80 with STAD Symbolic Trace 
and Debug 

A powerful monitor for the TRS-80"" with special 
Debugging Single Step through the machine language 
programs or set up to three breakpoints, and look at this 
display format! 

For tape and disk systems, 16-48K on one cassette.... $24.95 



EDITOR/ ASSEMBLER PLUS 



MICROSOFT 



Plus what? Well, you get the features of the T-Bug and 
the original editor/assembler plus macros and conditional 
assembly, plus extra commands like substitute, move, copy, 
and extend, plus Z-Bug, a powerful debugging monitor with 
8 level breakpoint capability $29.95 



RSM 2/2 U SMALL SYSTEMS SOFTWARE 



22 commands to control your TRS-SO™ Z-80 processor' 
Examine ROM, lest RAM, program in machine language 
read/write machine language tapes, and much more' RSM-2 
tape loads at top of 16K Level I or II, RSM-2 disk includes 
3 versions for 16K. 32K and 48K RSM-2 AN ADVANCED 
TAPE MONITOR FOR 16K S-80S $26.95 

RSM-2D: 3 MONITORS FOR TRS-80™disk systems... $29.95 



Z-80 ZAP/CM D RAMWARE 



Powerful disk modification utility in machine language 
allows you to READ. DISPLAY. MODIFY. WRITE, and 
COMPARE disk sectors II will calculate Hash Index Codes 
for any filespec and tell you where to put it (ever have a HIT 
read error'') You can recover killed disk files Search for a 
byte and have it identified with a flashing cursor 
Convenient to use. with cursor controlled by arrows, paging 
forward and backward, toggle between same sector on 
different disks and between Z80ZAP and DEBUG Do disk 
backups, apply patches and fixes, and explore your disk 

Program on disk (or minimum 16K 1 disk system, with 
Instruction manual $29.95 



ULTRA-MON 



INTERPRO 



The first intelligent monitor available lor the TRS-80"" 
Ullramon is the first ROM independent machine language 
monitor which puts you in COMPLETE CONTROL with 
exclusive INTERPRETIVE EXECUTION 

Each instruction is individually fetched, decoded, 
disassembled, and analyzed by Ultramon's "BRAIN" so that 
your efforts cannot "Bomb-out" and so that you can put 
breakpoints anywhere You can even put breakpoints in 

ROM. 

ULTRA-MON displays, disassembles, traces (hard-copy 
trace disassembly, too') lineprints, modifies, relocates 
memory, and even relocates itself with its commands This 
13-page documentation SHOWS YOU HOW TO DO IT 

Totally ROM independent, Ultramon will work in both the 
old and the newer ROM and will not be affected by any 
lower case modifications 
Cassette $24.95 




TS€:IHP)Rr>SID€ 



6 South St.,Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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CONVOY 




by William Morris and John Cope 

There are two versions of 
CONVOY here; one for a 16K 
S-80 and one for 16K Apple with 
Applesoft. The authors are 
currently working on versions for 
the Atari and PET. 

CONVOY is a one-player 16K 
simulation of the dangerous North 
Sea convoy runs from Great 
Britain to the Eastern Front ports 
of Murmansk or Archangel. 
Extensive use is made of the sound 
and Lo-Res graphics capabihties of 
the Apple throughout the program. 
The game can be played as an 
experience or as part of an 
ongoing scenario of up to 18 
voyages during the 1941-1942 
period (the time of maximum 
activity for this naval theater). 

In terms of structure, CONVOY 
can be subdivided into seven major 
sections. A brief summary of each 
section follows: 
Phase 1 - InitiaHzation - 

The entry of personal data 
concerning the player. If this is not 
the player's first game, additional 
information will be retrieved from 
disk (or cassette), (name, rank, 
experience points. Eastern Front 
requirements). 
Phase II - Convoy Construction - 

Player entry of convoy content. 
Each vessel must be assigned a 
cargo from a list of requirements 
with a maximum convoy strength 
of 15 being permitted. Certain 
cargos (e.g. fuel, ammunition) carry 
a higher risk content and can 
affect the damage profile of the 
convoy. The beginning player may 
choose to ignore these high risk 
cargos during the initial runs; 
however, sooner or later these 
requirements must be satisfied to 
permit successful completion of the 
simulation. Escort vessels are 
assigned on the basis of previous 
experience. 
Phase III - Beginning the Convoy - 

Player entry of each vessel's 
position within the convoy 
formation. Upon completion of 
designing the convoy, the 
computer will evaluate the overall 
design and assign experience 
points, accordingly. 
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Phase IV - Map and Movement 
Phase 

This phase represents a key 
segment of the simulation. A map 
of the North Sea and the 
contiguous land areas is drawn, 
after which the convoy's position 
off the west coast of Great Britain 
is displayed. The size of the polar 
ice cap fluctuates according to the 
season. The player is now ready to 
choose between Murmansk or 
Archangel as destination ports. 
Murmansk is the closer port by one 
day (4-6 moves) and represents the 
prime goal. Players wishing to 
enhance their experience points, 
however, may choose Archangel as 
this will allow for more 
opportunity to increase the point 
total in combat situations. (Of 
course, this cuts both ways). 

Using a "live" keyboard, the 
player now charts a daily course. 
Normally four moves are permitted 
each day, although this can be 
reduced to three should the convoy 
experience damage while en route. 

Upon completion of the player's 
turn the computer conducts an 
on-screen submarine search of the 
North Sea area. Should contact be 
made, the convoy is placed on 
combat footing with the player 
being obliged to engage the 
U-Boats of the Kriegsmarine. (See 
below). 

Should there be no contact with 
submarines, the computer will 
follow up with a "Luftwaffe 
search" of the North Sea area 
from bases within Norway. The 
number of bases generating search 
patterns fluctuates according to the 
season and convoy's position. 
Contact with the Luftwaffe once 
again places the Convoy on a 



combat footing with the player 
now obliged to repel an attack. 
(See below). 

During the first two or three 
days there is less likelihood of any 
contact with enemy forces. This 
being the case, the player has the 
opportunity at the end of each day 
to conduct air/sea drills or to 
reorganize the convoy. 

Finally, at the end of each day a 
log entry is presented summarizing 
the status of the convoy up to that 
point along with an updated point 
total. 

Phase V - Submarine Contact 
Phase 

(a) Radar Phase 

Initially, surface contact is made 
with the submarine with an 
animated graphic display modelled 
after the radar screens of World 
War II. The player must move to 
intercept the submarine within a 
set number of moves or suffer the 
consequences of a "free" torpedo 
shot at the convoy by the enemy. 

(b) Sonar Phase 

Upon interception, the 
submarine dives, which requires 
the player to interpret an animated 
sonar screen to determine the 
depth of the U-boat. A gauge used 
to help in this effort occasionally 
fails as the player increases in skill 
and proficiency. 

Once the player has fixed the 
depth charge setting, a new 
animation shows the firing of the 
explosive device and the 
subsequent underwater explosion. 
Failure to sink the submarine will 
result in another free torpedo 
launch at the convoy. 

As if the player does not face 
enough problems, the submarines 
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in CONVOY occasionally hunt in 
packs, which could result in 
another submarine attacking the 
armada. 

Phase VI - Air Contact Phase 
A Lo-Res plane flies across the 
screen. Using the game paddles the 
player must center a sight on the 
plane in order to down it. 
Depending on the experience, the 
player will have more or less time 
to dispatch the plane. Once again, 
experience can determine the 
number of planes that the convoy 
commander must face at any one 
time. 

Should the plane penetrate your 
defenses, bombs will be randomly 
dropped on the convoy. As 
mentioned earlier, certain ships 
with high risk cargos (e.g. fuel, 
ammunition) can only absorb one 
hit, while others can absorb more 
hits. Should one of these ships be 
struck, however, the convoy 
commander must decide whether 
to reduce speed to permit repairs 
to be made. This decision will only 
allow three moves per day as 
opposed to the normal four turns. 
Refusal to reduce speed entails the 
abandonment of the damaged 
vessel and its survival becomes 
problematical. 

At this point a summary of the 
day's activities is printed after 
which the game advances one day 
and the player is returned to the 
map and movement phase. A 
voyage as such requires ten days. 
Mention should be made as to the 
fact that the graphic displays for 
both "drills" and "combat" modes 
are essentially the same. There are, 
however, some subtle differences. 

Phase VII - Termination 

Loss of all convoy cargo ships 
automatically (of course) 
terminates the simulation. Should 
you successfully reach your part of 
destination, however, final 
summary evaluation is made. Point 
status will determine the 
commander's promotion or 
demotion. At the same time, a 
summary statement is made as to 
your accomplishments during the 
journey together with an updated 
requirement list for the Eastern 
Front. Should the player choose, 
jdl of the pertinent information 
will now be saved to disk (or 
cassette) to allow for use at a later 
time as part of a more involved 
scenario. 




Instructions: 
Constructing the Convoy 

During this phase of the game 
you will be given the opportunity 
to construct a convoy according to 
the Soviet requirements. Although 
you may always take up to 15 
vessels, you may not be able to 
afford them adequate protection 
until you advance in rank. 

Enter the first two letters of the 
cargo you want to add. 

Designing the Convoy 

You must now position each of 
the vessels in your convoy. The 
ships which you place first are 
easiest to protect and so the most 
valuable cargos should be entered 
early. 

When you complete your design, 
the computer will place your 
escorts and evaluate your pattern. 

The Voyage 

In this phase you must first choose 
a destination. Murmansk is the 
obvious choice but it could fall to 
the Axis army if you fail to deliver 
enough supplies. 

To move your convoy, press the 
number that corresponds to the 
direction on the chart at the 
bottom of the screen. You usually 
have three (S-80 and PET) and 
four Apple movements points but 
this can vary. 
Aircraft 

To shoot down enemy planes 
you must position your sight over 
the aircraft by holding down the 
appropriate arrow key. (S-80 and 
PET) or game paddles (Apple). 
As you improve , the planes will 
take less time to travel across the 
screen. 
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To fire, use the "ENTER" 
(S-80), game paddles (Apple) or "5" 
key (PET). 

Radar Phase 

In this phase you are given a set 
number of turns to position your 
destroyer (*) on top of the enemy 
submarine. Your vessel is placed in 
the center of the radar screen. An 
unsuccessful run will end a practice 
or cause a torpedo to be fired at 
your convoy. 

Sonar Phase 

Now you must try to drop a 
depth charge on the enemy sub! As 
you come nearer to the enemy 
vessel the visual display of your 
sonar signal will shorten until you 
are directly above the ship. Press 
"ENTER" (S-80) or any key 
(Apple and PET), to launch the 
charge. If you want to change the 
depth setting, press the up arrow 
(S-80) to decrease the setting, or 
the down arrow (S-80) to increase 
it. With the PET and Apple, 
hitting "D" will allow you to set a 
new depth. 

Documentation 

Lines 0-30: 

Initialization and Title Display. 

Machine language routines for 

sound and special graphics effect 

for all machines initialized here. 

Lines 100-300: 

Data statements for Graphics 

display or graphics strings. 

Each microcomputer uses these 
lines as the basis for many of the 
graphics routines. 
For the S-80 version the variable 
J$ is used for graphics strings. 
When run, the S-80 version 
features a short delay while its 

continued on next page 
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graphics strings are packed. 

Lines 300-400: 

Player Input. If this is the initial 
game, the string Al$ assigns a first 
time player the rank of Lieutenant 
while setting the variables 
K,S,TS,YE and MM to their 
starting values. If this is not the 
first voyage, routines are called to 
input data from tape or disk. 

Line 350: 

Checks to see if data entered from 

either the keyboard or data file is 

correct. 

Lines 400-670: 
Designing the Convoy. The 
variables R(l) through R(8) 
contain the requirements for the 
Eastern Front. The variable L(M) 
keeps track of the number of ships 
in the convoy with each vessel 
being part of the array B$. Note 
the difference in how the lack of 
an if-then-else capability in the 
Apple affects the program format. 

The last Hne has LI assume the 
size of the convoy, L2 assumes the 
size of the convoy while K is 
calculated on the basis of the 
construction process. 

Lines 671-900: 

Designing the Convoy. Using a 
portion of the data statements 
alluded to earlier, a loop of 
variable length (Z) outhnes the 
physical shape of the convoy. 
1$ and 11$ are used through INKEY$ 
or GET commands to concatenate 
B$, which is used to assign each 
vessel a physical location on the 
screen. Note how M is used to 
guard against improper keyboard 
entry. 

Lines 820-830: 

Allow for alteration of data entry. 
This section concludes with an 
algorithm to calculate your K 
points once again. Because of the 
difference of the Apple in handling 
graphics routines, a small 
enhancement was possible with 
TD, a delay variable used in the 
air attack phase being calculated 
on the basis of the K points. 

Lines 900-1250: 

Map Phase. The lines between 900 
and 910 are required to deal with 
alterations in the variable SP that 
can occur later in the program. 

It is at this point, the drawing of 
the map, that the programs really 
part company. The S-80 uses the 
variable J$ graphics string to draw 
the map while the Apple is able to 
use the Lo-Res command HLIN to 
achieve the same effect. 
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The variable S determines in turn 
the season (E$) and Z the length of 
the ice flows across the top of the 
screen. The S-80 POKEs directly 
into the screen memory, while the 
Apple uses either the HPLOT or 
HLIN command procedure to 
indicate this aspect as well as the 
convoy destination, and 
subsequent screen search patterns. 
PI and P2 determine the position 
of the convoy on the screen for 
each cycle. 
Lines 1300-1400: 

SP controls the number of moves 
per day. With the S-80 it is set at 
three because the use of the 
keypad allows for diagonal moves; 
the absence of this feature with the 
Apple is compensated for by 
setting SP to 4. 

CAS and CB$ are unique to the 
S-80 version, and set the keypad as 
a compass. 

Lines 1500-1600: 
Submarine Search. Z is used to 
randomly generate screen 
locations, to be plotted by all 
versions. Before plotting, however, 
the S-80 version PEEKS at that 
location with a space value (32) 
permitting the plot. The Apple 
achieves the same effect through 
the SCRN command. A value of 7 
(blue) permits the plot. 

Notice how T is used as a flag to 
increase the possibility of contact. 
Lines 1600-1800: 

Air Search. S controls the number 
of air bases plotted with the screen 
position of your convoy also 
determining whether or not a 
particular base is plotted. Rl and 
R2 control the movement of the 
subsequent plots. As with the 
submarine search section, a plot at 
the convoy's position terminates 
the search with PR being set to 
zero, indicating a combat 
situation. 
Lines 1800-2000: 

No Contact Phase. The flag PR is 
set to denote a drill situation when 
the program branches to the 
appropriate location. 
Lines 2000-2399: 

Aircraft Run. XI, the left starting 
point of the aircraft, is determined 
by your K points. In the case of 
the Apple, TD is used to control 
the speed of the plot. With the 
Apple, the PDL statements control 
the movement of the sight while 
the PEEK statements check to 
determine if the game paddle 
button has been pressed. 
Depending on the status of PR, 
the remaining lines in the section 
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adjust both the size of the convoy 
and its speed, as well as your K 
points. The logic for this 
procedure is essentially the same 
for all three machines. 
Lines 2400-2680: 
Radar Screen. The STRINGS 
command of the S-80 establishes 
the descending bar of the radar 
screen while the PRINT® 
statement is used to move it down 
the screen. Apple's HLIN 
command achieves both ends. The 
pursuit procedure is similar to the 
methodology used in lines 
1300-1400. 

Different algorithms at the end 
of this section attend to the size of 
variables L2, SP and the array B$. 
The array M(L) set in lines 
700-800. 

Lines 2600-2700 (S-80): 
Lines 2680-2970 (Apple): 
Sonar Screen. V and W are set at 
this point. They control the screen 
location of the graphics sun in the 
next section as well. For-Next 
loops are used to create the 
animated bar. Both S-80 and 
Apple versions use BASIC graphics 
commands (SET, RESET, PLOT). 
Lines 2700-2940 (S-80): 
Lines 2970-2999 (Apple): 
Depth Charge Launch. V and W 
determine the vertical and 
horizontal position of each 
graphics figure. The animated plot 
of the depth charge figure is preset 
except for the final vertical 
position. Both versions use the 
ABS function to compare W and 
V to the final plot position to 
determine if a hit has occurred. 

Lines 3000-4000: 

LI through L6 are used to 

summarize player progress. 

Lines 4000-5000: 
Evaluation Algorithms 

Lines 6000-7000: 
End of Game 

Lines 8000-9000: 
Daily Log Entries. 

Lines 50000-: 

Subroutines. At this point the 
programs are structured somewhat 
differently. The Apple uses the 
following routines: 

Lines 50000-50030: 
Delay loops. 

Lines 50040-50050: 
Graphics Routine. This routine sets 
the Lo-Res screen color to your 
choice through variable XC. 

Lines 50060-50089: 
Sound Routines. 



Lines 50090-50150: 
Saving the Game. 

Lines 50160-50210: 
Retrieving Data from previous 
games. 

The following routines are used in 

the S-80 version: 

Lines 200-300: 

Data Input from previous game. 

Lines 5000-6000: 
Saving the Game. 
Lines 50000-50020: 
Sound Routines. 

Lines 50030: 
Toggle Speaker. 

Lines 50040: 

Morse Code routine moves 

message across the screen with 

sound. 

Convoy Variable Listing: 

NOTE: A-J strings for S-80 

version. G-J are graphics related 

Apple equivalents. 

A$: Name 

AL$: Rank 

A2$: New rank 

A3$: Old rank 

B$: Cargo 

CAS: Compass direction 

CBS: Keypad 

E$: Season 

F$: More signal 

IS: Inkey or get command 

11$: Inkey or get Command 

IIS: Inkey or get command 

JS and JYS: Graphics strings 

K: Experience 

L: # of ships 

LI: Size of convoy at start (fixed) 

L2: Size of convoy during voyage 

(variable) 

L3: Ships sunk 

L4: Ships damaged 

L5: Sunk subs 

L6: Downed aircraft 

L(9): Escort vessels 

LL: # of planes 

LM: # of escorts 

LOS: Log file change 

M: Counter 

N: Murmansk 

PI: Position of convoy 

P2: 2nd turn & on flag 

PA: Chance of sub finding convoy 

PR: Practice 

R: Random 

RI: Random plots 

R2: Random 

RE: Requirements 

RR: Damaged vessel 

S: Seasons variables 

SP: Speed 

SU: Depth charge related variables 

T: Days 

TS: Convoy # 

YE: Year 

V-ZZ: Counters 



s-80 VERSION 
I REH m CONVOY in 

I REM m (C) m, mnas t j. cope m 

II RANX»i:CLS:Cl£M650:D£F5TRA-j:DEFINTV-Z;ODe(17).J(19>:T=i:C= 

" «♦ ":j(0)=sTRDe$(i28,i28):PRiNTM92,j(0);j((i);j(0);j(i);: 

X=43:FORZ=iTO62JSET(X+Z,H):SET(X-Z,10):SET(X*Z,31):SET(X-Z,31): 
iCXT:G0S(Bll2 

21 PRDtreazi , j(0) ; j( 1 ) ; j(2) ; j(3) ; :FCiRz=iTQ7:GosuBioo:usmsR( t) :g 
osub5iisi:iext:h]rz=oto3:j(Z)="'':(Cxt:goto2§o 

III JF="//////////////////////":iM««PTR(JF) :pa<E1652«,P£EK(Ufl) 
:«J<E165Z7,P£EK(IKZ) :0=P£EK(litl )+256iPEEK(l>t2) tRETURN 

111 Jf="///////////////////////////":U=W«PTR(JH) :P(1KE16526,PEEK 

(IHl ) :P(KEI6527,P£EK(l}t2) :i>=f£EK(U+l )+256*EEK<lifZ) :RETURN 

ll2PRDfTM71,"IHr™LIZDC";!J(«)="":F0RZ=lTn2i:RB«A:tCXT:GOSU 

Blli:GOSUil03:GOSUBiei:GOS(JB103:GOT01l6 

ll3RE«fl:Y=LEN(A):F0RX=lTOYSTEP2:V=ASC(NIM(A,X,l))JI*=ftSC(hIM( 

A,X+l,l)):iFH>57TtCMHf-7 

IM IFV>57THDW=V-7 

115 *^(VH8)tl«*«M8:PflKEU,V:iHHi:fCXT:RETURN 

IM FaRZ=IT019:REMM:Y=tEN(A):FI]RX=lT0YSTEP2:V=ASC(NID$(A,X,l)>: 
H=ASC(NIM(A,X+l,l»:in057T)eM=M-7 

117 IFV>57T»CHV=V-7 

118 v=(^Me)ii«-»*Me: j(Z)=j(Z)+CHR»(V) :next:i€xt:restore:return 

1I9DATA52I,S21,391,650,2M,778,S16,S28,390,398,616,£51,138,262, 

Z7I,322,338,S76,S96 

111 MTALIEUTENANT.LIEUTENMa CQHHMf)ER,C(NMOER,CAPTAIN,CamQD 

ONE 

111 MTA0921FF3FI63C7EFEBI38M2FF68I77ZB7C883DF2D9C9 

112 DATA11XIF0EFF2101012D7AED61131IFEED691310FEX2IF3152IEFC9 

113 DATAei8l808l808080B8BFGF6FGFGF6180B8eF6FeFBFBFB180BFBF6F9l80 
6FBF6F8SeF6FeF808DBF6FBF80BaBFGFeFBFBFB180eFGFGF8IBFBF6F80808080 
80808181 

IH DATABI8e8080808D80eF6FGF8l83838380BFBFBF80eFBFEF806F6rBFeFB1 

BFeFSF8080BFBF9SMeFGF8080eFEFEF8l6FBFEF8082AF6FGFBF9F818080808l 

80818081 

llSDATAB0808080808080BFBFBF80BOBOBI80BFBFBF80BFBFBF80BFBFBF8e8F 

GFBFBr808080BF6FBFBF808080BFBFBF80BFBFBF808l80eFeFeF808080808080 

81808081 

116 DATA808080808080808eeFGF6FeFGF87808eeFBF6FeFGF8780eF6FBF8082 
BFBFBF80808080eFBF8080808088eFBF6F6F6F87808080eF6FGF8D8080808080 
80808081 

117 DATABOBC8190,B2EFBFeFBFBFB1,8283838F8783,AOB88£B3B090,BlBEBF 
B7B1 ,BOB0BOeCB«890BOBDBOBO80eOACeC8'»»«FeF,BOBC6EEFGFBF6FGFBFBF 
BFEFBF6FBF91A0B2SFeFBFBF,B06FBF6FBF6FBF6FH^F6FBFBC618380B062B3e 
FBFBFBF 

118 DAT/«CBFBFBFBFBF9783B88FBFBFBFBFBfBfBCBC8FBFBFBFBFBf fBOBOBFB 
FBFBFBFBf9F81BEBFBFBFBFBFBFEiFBFEiFBFBFBFBFBFBFBF,B0BCEFBfBFBFBFBF 
BFBf858fl82BFBfBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF,Ae8FBFBF9FBFBFBFBFB 
FBO90808fl8A87B3B0B0BC8FBFBFBFBFBFBFBFBFBf 

119 DATA8EBFBr8781^«eFBF6FBF93808080806EBFH^FGFBF6FBFGFGFBFGF6F 
BFEF,B0B0B06C8O60B88F6FBFBSB06DB0B0688F6F6F6FGFGFBF6FBFBFGF6FEFB 
F 

120 DATA8C8F6C6CeFBFBFBFBFBC6CSr8C,BF838383eF8383836FF7BF8C8C808 
0808C8CeFF7BFB0B0B06FB0B0B0BF 

200 A="":Al="LIEUTEWWT":PRINTe818,"IS THIS YOUR FIRST WOWGE (Y 

/N)?":n=i:GOSUB500oo 

210 I=D#<EY»:in=""T>CN210ELSEIFIO"N"Tl€N300aSEPRIMn«(ll)"IN 

SERT YOIR DATA T«>E AND PRESS EinER.";:DfVTLO»;iHPUT»-l,A:iHPUT 

»-l,Ai:iNPUT#-l,K,R(l),R(2),R(3),R(1),R(5),R(6),R(7),R(8),S,YE,M 

JS 

300 CLS:GOSUB50000:P»aNT"BRmSH AttORALTY - ARCTIC COWOY HEAD 

aUMiTERS":Fi<>0THEN310ELSEPRINT:DI>UT" WD IS REPORTDC FOR DU 

TY";A:GOSIJB5IOOfl:FA=""T»CNA="HORNBLO>CR"ELSEA=LEn$(A,16) 

311 PRWTlPRDfTtPRINTAi;" "W", YOUR EXPERIENCE IS";k;".":PRINT 

"YOU ARE TAKING OUT CONVOY ♦'';TS+1;".":PRINT"IS THIS CORRECT (Y/ 

N)?" 

320 I=DI<EY$:iF[=""THEN320ELSEin="N"THENN=0 :YE=mi JK=0 :S=0{TS= 

0:GOTO300ELSEIFK=0TICNFaRZ=lTO8:R(Z)^M)(199)+800:NEXT 



continued on next page 
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j; 



m f0rz=ltobjre(z)=«(z>5nextjcls:primt"construcnon phase":prin 
t:gos(£1iii:got(H3o 

110 PfaKTSTRING$(61,131):PRIKre2H,"RUSSIMI REanRQENTS":PRMS 

mm(6^,i3i)itPKon" fuel nvd tanks plmcs ore 

FOOD GRAIN TI>eER'':FGRZ=128T038«TEP6i:P<aNTeZ,Dff»(191);:PRI 

mK*63,Qf»(m)',tl€Xr 

120 PRMKSS, ""} JFGRZ=1T0B{PRINTUSINGC;RE(Z) ; JJCXT JPRIMTK81,CH 

R*( 191 ) ; ;pRiNreii7,cn»(i9i ) ; :return 

130 PRINTSTRDC$(61,131);:PRINTJPRm:PRINT:PRM"NUMBER OF SHF 

S IN CttWOY IS"}L". (ENTER'?' TO E».)":iFL=15THEN190ELSEFORZ 

=lT0e!Y=«(Z)+Y:PRINT:PRINT"SHIP#";L+l};DfVr"Ctf«M";B(L+l):GOSU 

BlOl :P0KEUtl ,50+Li3:US=USR( ) 

«fl IFB(L+l)="e"ANDL>0T}CN19flaSEB=lfFT«(B(L+l),2):N=0:GOSllB15fl: 

IFRE(M)=flORM=0TtCNGOSUB12fl:GOTO130ELSE170 

150 IFB="FU"THENJt=lELSEIFB="W1"T>0#»=2aSEIFB="TA"T)CNH=3aSEIFB 

="PL"T»e«1=1ELSEIFB="0R"THENH=5ELSEIFB="F0"T»C»t=tfLSEIFB="GR"TH 

E»»=7aSEIFB="n"THD«=8 

160 RETURN 

170 L(M)<(h)+l'.RE(M)=«E(H)-10:iFRE(H><0THENRE(M)=0 

ISO l=l+i:gosubi2o:gotoi30 

190 PRINTg(510,"YOUR COWOY IS NOH REM)Y TO SAIL."JL(9)=1+IMT(K/1 

0000):iFL(9)>1L(9)=1 

500 PRINT" YOU ARE BEING ESCORTED BY";L(9);"DESTR0YER<S).":L1= 

L:L2=L(9):K=K+ilil0-H.2«20:SP=3:PRINn<«(10)"GOODLUa<":FORZ=lTO2 

000:>EXT 

700 CLS:PRINTK2, "DESIGNING THE CONVOY": PRINT :PRINT"C/«GO 

l€SSaS";PRINT.'FORZ=lTO9:M(ZX(Z):(e(T:X=0:PRINT"RJEL"}T«(11)M 

(l):PRDfT"WM)";T(«(11)M(Z);PRINT"TWI<S";T«(11)N(3):PRINT"PUI»€ 

S";TAB(11)H(1)!PRINT"0RE"JTAe(11)M(5) 

710 PRINT"FOOD"JTAB(11)M(6):PRIMT"GRAIN";TAB(11)M<7)JPRINT"TME 

R";TAe(11)M(8):PRINT"ESCORTS";T«(11)H(9):FSP<3PRINTK10+61iRR, 

720 FORZ=96T0896STEP61:PRINTBZ,CH»(191) ; :fEXTJRESTORE:FORZ=lTOL 

♦L(9) :R£ADY;PRINTeY+38,CHR*(191 ) ; :GOSUB50fllO:NEXTJRESTORE5X=0 

730 B(X)=STR$(M):X=X+1JIFX>LT»CN780ELSEREADY 

710 PRINTeY+38," ";:FORM=lTO10:MEXT:PRINTeY+38,CH»(191);:i=INKE 

Y$:iFI<"A"ORI>"Z"TJCN710ELS£PRMeY+38,i;:GOSUB50fllO 

750 n=IM<EY<:iFn<"A"ORn>"Z"T}CN750ELSEPRIMTeY+39,n; :US=USR(fl 

) :«=0 :B=I+n:GOSUB150 ;iFM>0T>CN770 

760 GOSUB50030!PRINTeY+38,CH»<191)r' ";:GOT0710 

770 IF«(M)<lTHEN760aSE«(H)=*1(M)-lJPRIMTK06+61iH," "JIPRINTK 

06+61xH,N(N);:GOTO73O 

780 F0RZ=1TX(9) :READY:PRINT8Y+38, "ES"} :fCXT:PRIMTe782, } IPRIMTB 

970,"IS THIS THE PROPER CONFIGURAnON (Y/N) ?";:GOSUB50000 

790 I=INKEY»:in=""Tf€N790ELSEFI="N"THEN700aS£FORZ=lTOL{K=**R( 

VAL(B(Z)) )/lfl000i(9-VAL(B(Z) ) )i(15-Z) !NEXT:FT=lPRINTe970," 

EXPERIENCE POINTS PP£ NOH";iNT(K);". ";:forz=itoiooo:mext 

800 IFRR=0THENB20aSEFORZ=lTOL:iF\WL(B(Z))=«»THENB(Z)=8(L):B(L)= 
STR«(RR) 

810 mj 

820 gosubsoooo:fs=os=i:ye=i91i 

900 gosub80oo:fsp=2andrnd(2)=2T)Encls:f="... dmaged vessel ms 

BEEN REPAIRED ...":GOSUB50010!F="... RESUMING NORMAL SPEED ...» 

:Gosue50oio:sp=3 

910 FSP=1SP=2 

920 PR=0:CLS;j(0)=STRING«(18,131)5PRINTe7,J(0);:j(0)=STRING$(18, 

174):PRINTe711,J(0);:j(0)=STRING$(l,191):FORZ=7T0711STEP6i;PRINT 

ez, j(fl ) ; jPRiNTK+18, j(o ) ; :next:printk66, j(i) ; :PRiNTe330, j(5) ; :p 

RINTe391,J(6);!PRINTK01, "ICELAND"! 

930 PRINTe656, J(7> ,* :PRINTe720 , J(8> ', !PRINTe585, "BRHAIN"} .'PRINTK 

29,J(9>;!PRINTe290,J(10)5:PRINTe353,J(ll);!PRINTM16,J(12);:PRIN 

TM77,J(13) 5 :PRINTe538,J(11) I :PRINTe602,J(15); :PRINTe666, J(16)} ! 

PRINTg730,J(17) I :PRINTW25,"EUR0PE"! 

1000 ONSGOTO1010,1030,1050,1060 

1010 E=" FALL " 

1020 FORZ=8TO19:PRINTBZ,CH»(167);:NEXT:FORZ=80TO88JPRIKTeZ,CHR» 

(153) ; :PRDfTez+20,c«»(i53) ; :icxT:GOTOiiofl 

1030 E="HINTER":F0RZ=8T051!PRINTK,CHR»(167);:NEXT:F0RZ=7ZT0118: 
PRINTK,CH»(153) ; :ie(T:F0RZ=136T0158:PRINTK,CHR$(166) } :>£XT:F0 



RZ=178T0182:PRINTeZ,CNR$(166);.'fEXT.'FaRZ=200Ta217.'PRDrreZtCHR((l 

53) ; J»€XT!F0RZ=269T0271:PRIMTE,CHR«(166) J 

1010 NEXTIGOTOllOO 

1050 E="SPRING":GOTO102fl 

1060 E="SUnER":F0R2=31TO13.'PRINTK,Cm<(167);:»CXT:GOTO1100 

1100 PRINT§0,E!:PRINTe61,YE;!PRINTe57,"DAY";T;:iFPZ=n«}(I=IltQO 

TO1110ELSEPRINTe901,"YOUR COWOY IS STANDING OF THE HEST COAST 

OF BRnAIN.":FORZ=lT010:PRINTe655," ";:GOSUB50010:PRIHTe655,"i"; 

:FGRY=lTO20:NEXT:NEXT:FORZ=lTO1500!ftXT!P=655 

1110 PZ=l!PRINTe901,CHR$(251)J!IFN=lPRINTe912,"YOUR DESTBttTION 

IS ARCHANGa."; :FORZ=lTO2000!tCXT:i="A":il=I!GOTO1110aSEPRINTe9 

12, "IS YOUR DESTINAHON"; 

1120 PRINTe235,"H"!!PRINTe932,"MURHANSK, ";:GOSUB101:POKEIH1 

,60:POKEU+2,10:US4JSR(0):FORZ=lTG500:NEXT:PRINT8235,Of»(111)|:i 

=INKEY»!IFI="M"ORI="A"TfCNIl=I!GOTO1110ELSEPRINTK11,"A";;PRINTe 

932,"0R ARCHANGEL ?";;GOSUB101!POKEU+1,90 

1130 POHU+2,10:US=USR(0):FORZ=1T0500!ICXT!PRINTK11," "}:gotoii 

20 

1110 PRINTeP,"i";!PRINTe901,CHR»(251);:GOSUB10i:POKEU+l,90:POKEU 

+2,10:in="H"THENFORZ=lT010:PRINTeZ35,C«»(111);:US4JSR(0):PRINT 

e235,"M"j:(OT:G0T01200aSEF0RZ=lT010:PRINTe211," ";{US=(JSR(0):P 

RINTe211,"A";!NEXT 

1200 IFINT(S)=2TfCN1210aSEPRINTK01," "! 

1210 PRINTK7,"DAY";T;:PRINTre85," ";:forv=itosp:gosubi300 

;gotoisoo 

1300 CA="NN N »C 

H I E 
S« S SE":Z=0:C6=" 7 8 9 

15 6 

12 3" 

1310 I=INKEY*:GOSUB1320:iFI=""0RI<"l"ORI>"9"THEN1310aSE1310 
1320 Z=Z+i:iFZ=lTHENPRINTe768,C8;aSEIFZ=50TJefRINTe768,CAJELSE 
IFZ=60Tt€NZ=0 
1330 RETURN 

1310 Z=WL(I):ONZGOTO1110, 1120, 1130, 1380, 1390,11«tt»135«,136«,137 


1350 Z=P-65:GOT01110 
1360 Z=f-6i:GOT01110 
1370 Z=P-63:GOT01110 
1380 Z=P-i:G0T0111fl 

1390 z=p:gotoiiio 
1100 z=p+i:gotoiiio 

1110 Z=P+63!GOT01110 

1120 Z=f+61!GOTO1110 

1130 Z=P+65 

mo Y=PEEK(15360+Z)!IFY=770RY=650RY=10RY=13TlOf1?INTeP," "{.'FDR 

X=1T05!PRINTK, "1" ! !GOSUB50010 tPRIMTK, " "', SGOSUBSOOIO :>CXT:G0T0 

3000aSEIFYO32AJI)YO128ANDYO12A>l)YO83ANDYO19T]CN1300ELSEPRIN 

Tep," ";:p=Z5Primtk,"i";:return 

1500 GosuB50ooo:NEXT:T=T+i:PRiNTra63,"suBHMa»E semch";:fqrx=it 

O20JZ=(6+RND(18))+(61iRND(ll))+15360!IFPEEK(Z)=12THENPA=iaSEIFP 

EEK(Z)=128flRPEEK(Z)=32THENFORY=lTOi:POKEZ,83!GOSUB50010:POKEZ,32 

:i€XT 

1510 NEXr!IFPA=lPA=0;iFRND(2)=lT»CN2100 

1600 F(T=1ORT=5)AM)RND(2)=lTHENPA=i:GOTO2100aSEPRINTe863,"LUFT 

HAFFE SEARCH"; :ONSGOTO1620, 1630, 1620, 1610 

1610 Z=S13:GOSU61610:Z=118:GOSUei610 

1620 Z=293:GOSUB1610 

1630 z=297:Gosuei6io:z=29s:GosuBi6io:z=355:GOSuei6io:z=iei:GOSUB 

1610 ;Z=601:G05UB1610 :GOT01800 

1610 FZ<PTHD«ETURNELS£PRINTE,CHR«(131) ; :Zl=Z/61i3-l JZ2=(Z-Zl« 

61/3)i2-l!FORY=lT025!IFPOINT(Z2,Zl)THENGOSUB50030JGOT0165«aSESE 

T(Z2,Z1 ) :GOSUB50030 :RESET(Z2,Z1 ) 

1650 M=PEEK(15360+f):iFWO12TlCNY=25:NEXT!PA=lJLL=INT(R»(L/L(9) 

) ) JGOTD2000aSER2=«M)(3)+125!IFR2=126R2=l :F(P>100ANDP<128)OR(P> 

161/WP<192)THENZ2=Z2+R2aSEZ2=Z2-R2 

1660 r1=rnd(2)-1!z1=z1-r1!ifz1<1thenz1=1 
1670 next:gosubsooio:return 

1800 PRINTe768,"l. AIR DEFENCE DRILL 



S2 
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2. StBttRBE DRILL 

3. REORGMOZE TfE CONVOY 
1. CONTINUE"; 

1810 PR=i:pRiNTre63, "orders: 

EtFORZ=lTO100:NEXT:PRINTre63," "WGOSLBSOOOfltGOTOlBlOELSEON 

VAL(I)GOTO2000,2110,700,9fl0 

2090 FORY=lTO10:PRINTeP,CHR$(lZ9)!:GOaJB5fl010:FORX=lTO10:NEXT}PR 

INTH>,"i";jFORX=lT01fl!NEXT:(CXT:CLS:PRINT(>W<23):iFPR=lPRINTe39 

6, "air defence drili"elseprinte396, "bombers approaching" 
2010 forz=itoiooo:i€xt:ifll>5ll=5 

2020 X=25:Y=5:Yl=«W)(15):iW=CH»(Hl)+OI»(110)JXl=INT(K/1000):i 

FXl>30THE)O(l=30 

2030 aS:Ol/T255,0!OUT255,i:PRINTeY«6'HX,J(19);:PRINTeYli6^Xl,iW 

,'.']FXl>59T>CN2180aSEZ=P£EK(151fl3):iFW=OT>B«*=lELS£H=0 

2010 IFW=0TtCNXl=Xl+2;Zl=RND(3)-2:Yl=Yl+Zl :IFY1<1T»CNY1=1ELSEIFY 

1>15THENY1=15 

2050 IFZ=1THEN2160 

2060 ONZ/8GOTO2080,2100,2030,2120,2030,2030,2030,2M0 

2070 GOTO2030 

2080 Y=Y-i:iFY<OTJCNY=0 

2090 GOTO2030 

2100 Y=Y+i:iFY>12MNY=12 

2110 GOTO2030 

2120 X=X-3:iFX<0X=O 

2130 GOTO2030 

2110 X=X+3:iFX>55X=55 

21S0 GOTOZ030 

2140 PRIMTe(Y+l)i61+X+3,"i«";:GOSUB50010JIFY10Y+10RXOXlHT(CN2 

030aSEPRINT?Y)i41+X,J(19) 5 :F0RZl=lT05:PRINTe(Y+l)i61+X+3,"i "} :G 

osiJE50oio:pRiNTe(Y+i)i6i+x+3," i";:gosub5ooio:next 

2170 IFPR=1TICNK=K+20:F="... PRACnCE HAS BEEN SUCCESSFUL ...":G 

OSUB5001fl;GOTO900ELSEF="... (mMfl SHOT DOHN ..."tGOSUBSOOIOJK 

=K+100:L6=L6+1;GOT02250 

2180 IFPR=1T(CM<=<<-7:F="... PRACnCE HAS UNSUCCESSFUL ...":G0SUB 

50010:GOT0900ELSER=L:F="... bombs are being dropped ...":G0SlJB5fl 

M0'.IFSP=3T>OIHaO(L) ;B(L+1 )=8(R) ;F0RZ=RT0L+1 :B(Z)=«(Z+1 ) :t€XT 

2190 RR=W»L(B(R))!IFRND(1)=20RSP<30RVAL(B(L))<3THEN2230ELS£F=".. 

. SHIP *"+str$(R)+" ms BEEN w»w£D ...":gosib5ooio:k=k-15:li< 

1+1!F="... MILL YOU REDUCE SPEED FOR REPAIRS? ..." 
2200 I=IM<EY»:iFI="Y"ORI="N"TJCN2210aSEGOSUB50010:GOTO2200 
2210 IFI="Y"THENSP=1 :GOTO900ELSa(V«.(B(R) ) )=L(VAL(B(R) ) )-l :L=L- 
i:iFRND(2)=2F="... Tff DW1AGED VESSEL RETUWCD TO ENGLAND ...":G 
OSUB50010 :iFL=OTHEN3000aSE900 

2220 IFW*)(2)=2THENK=K-30:L3=L3+1!L1=L1-1:F="... THE DAJWGED VES 
SEL SINKS EN ROUTE ...":GOSUB50010:GOTO900aSEK=*(+20:F="... M. 
DAMAGED ^SSEL HILL ARRIVE SAFRY ...":GOSUB50010:IFL=OT»€N3000E 
LSE900 

2230 K=*-30!RR=0JL(WL(B(L)))=L(VAL(B(L)))-1JL3=L3+1:F="... SHF 
♦"+STR$(R)+" tttS BEEN SWK ..."!GOSLB50010:L=L-i:ffSP<3TtCNSP=3 

:li=li-i 

2210 IFL=flTHEN3000ELSE900 

2250 LL=LL-1:IFLL<1T1CNR=RW)(2):IFR=1THEN900ELSE2110 

2260 as:F="... amtR tmmi is approaching ..."igosubsooio: 

GOTO2020 

2100 Lit=L(9):FORY=lTO10;PRINTgP,"S";:GOSUB50010:F0RX=lTO10:NEXT: 

PRINTeP,"i"|:FORX=lT010:ftXT:itXT 

2110 CLS:PRINTe30,"R/»AR";:JS=STRING$(31,131):PRIHTei13,JS;:PRIN 

TK91 , JS; .•FORZ=113T0528STEP6i:PRMK,CHR»(191 ) ', !PRINTeZ+33,CHR« 

(191 ) ; :NEXT;PRINTe352, "I"; :F0RZ=lTO1.*GOStB50050:iCXT;Pl=P:P=352: 

Sl=(R«)(6)+2)i61+(RND(32)+15) 

2120 FS1=352T»CNS1=351 

2130 FORZ1=1T010:JS=STRING*(32,"-"):FORZ=20BT0530STEP61:PRINTK, 

JS; :GOSUB500ZO:PRMK,STRING*(3Z,32) ; :iFZ<=PW©Z+61>=*TfCNPRINT 

ep,"i"; 

2110 IFZ<=SlANDZ+61>=SlTHENPRINTeSl,"S"; 

215«MEXT'.GOSUB1300:iFY=83ORY=19T}CN2170aSER=«M)(3)-2:Rl=«M)(3) 

-2:S2=Si:S2=S2+Ri61+Rl+15360:iFPEEK(S2)=32THENSl=S2-15360 

2160 tCXT;GOTOZ730 

2170 P=fi:V=RND(19):Vl=0;ZZ=3H</10000JIFn<lZZ=l 



2600 aSiPRINTWO, "SONAR"; : JS=STRINGi(61,110) 5PRINTW1,JS; :PRIMT 
M92,JS;:F0RZ=0TOi;FORY=5TO9:SET(Z,Y):SET(Z+126,Y)Jtea:jtXT;(*=R 
ND(13)i2:PRINTK67,"D£PTH CtWRGES ARE SET AT m 100 m FEET."J 

ss=io;forz=itoi!gosub5oo5o:us=usr(0):next 

2610 I=IM<EY$:n=n+i:iFTDABS(K/1000-10)TfCN2610ELSEIFI=""THEN2 

610aSEIFASC(I)=13THEN2670aSEIFASC(I)=91THE}eS=SS-l.*IFSS<lSS=l 

2620 FASC(I)=10THENSS=SS+i:iFSS>18SS=18 

2630 GOT02610 

2610 PRINTK95,SSilO;5n=-lJIFH=OTfCNVl=l 

2650 IFVl=lTHENN=«+2ELSEH=H-2 

2660 IFH>25THEN2730aSEn=i:GOSlJB50000:TT=i:X=Vi2+«:jM=STRING$(X 

,191):PRINTei29,JM;;GOStJB:lOi:US=USR(0):jM=STRING«(X,128):PRIMTei 

29,JM;:GOT02610 

2670 JM=STRING»(61,131) :PRINTe576,t#i; :Z=179:Z=Z-i:PRINTeZ,CH»(l 

76);CHR»(176) ; :FiaNTH+59,J(18) ; :V=V+26;iFVl=lH=32-»B.SEH=32+« 

2680 forz=htow+10:set(z, v) :next:set(ht5, v-1 ) :set(h+5,v-2) :set<h+ 

6,v-2):x=52:y=2i;forxi=oto3:set(x,Y);forx2=itoioo!next;reset(x,y 

) jx=x-i:y=y-i !icxt:forxi=itg7:set(x,y) :forx2=itoioo:nextjreset(x 

,Y):x=x-i;Y=Y+i:fOT:su=ss:iFsu<3SU=3 

2690 fory=y+itoy+si>-3:set(x,y):forx2=itoioo:next;reset(x,y):(cxt 

:FORZ=lTOi:GOSUe50030:NEXT:FORZ=lTOi;SET(X,Y-l);SET(X,Y+l):SET(X 

+1 , Y) :set(x-i ,Y) ;reset(x, Y-1 ) :reset(x,y+i) :reset(x+i ,Y) :reset(x- 
i,y):next 

2700 FAeS(H-35)<6ANDABS(V-26-SS)<ZZT>CN2710aSEIFPR=lTHEN2730a 
SE2710 

2710 FORZ=lTO20:R=RM)(10):RESET(HtR,V):GOSUB50030!SET(H+R,V);NEX 

T:FORZ=0TO10:FORY=flTO2:RESET(H+Z,V-Y):itXT:NEXT;PRINTK76,Ji;:F 

PR=1THENF="... PRACTICE HAS SUCCESSFUL ..."!GOSUB50010:K=*+10JGO 

TO900 

2720 IFPR01T»0F="... SUBIWRINE SUNK ...":GOSUB50010:K=)<+500:L5 

=L5tl!GOTO900 

2730 IFPR=1TI0«<=K-25:P=P1:F="... PRACnCE RUN W& UNSUCCESSFUL 

...":gosub5001o:goto900 

2710 f="... torpedo uhjnched ...":gosub50010:fsp<3ttcnl1<1-l 

2750 K=*-3fl!RR=0:SP=3:L(V«.(B(L)))=L(VAL(B<L))>-i:L3=4.3+i:F="... 
SHIP r'+STRKL)*" HAS SUNK ...":GOSUB50010!L=L-i:iFL=0THEN300flE 
LSB(L+l)="":iFPOPlTHEN2130aSEL«=LM-l!IFL«>0TtCNF="... DO YOU 
HANT MOTHER RUN? ..." 

2760 FLM>0GOSUB50fl10:i=INKEY$:iFI=""THEN2760aSEIFI="Y"THEN2110 
2770 FR«)(3)=lTtCNF="... ANOTtO SUBWttfC IS tfPROACHDC ...": 
GOSUBS0010 :GOTO2110aSE900 
3000 CLS:GOSUB50000!PRINnAB(7);"BRmSH MMIRALTY - («CTIC COW 

OY hem)quarters":gosubiooo:z=14K/ioooo:fz>sz=5 

3010 gosub600o:print:print"log sunwjy for ";ai;" ";a;":":gosub3 

020:GOT030SO 

3020 PRINT:PRINT" your DOUfL CONVOY STRENGTH HAS";L1;"W Y 
OU HERE ESC0RTED":PRINT"BY";L2;"DESTR0YER(S). of THESE SKIPS, Y 
OU L0ST";L3"AM) fW)";L1!PRINT"DWWGED.":PRINT 

3030 print" during your voyage you sam<";l5;"surmane(s) m 

d d0ltb)":printl6;"d£my aircraft. "!fk<ok=0 

3010 print:primt" your experience points ^ noh";int(K);"." 

:return 

3050 print:print:prinnab(7);"(press enter for updated fussim r 

eouirocnts) 

3060 i=inkey$5fi=""then3060aseifts+l=18thencls:print:print:gos 

UB110:PRINTSTRING«<61,131):GOTO7fl00aSEaS:PRINT:PRINT:FORZ=lTOe 
}R(Z)=R(Z)+RND(50):FR(Z)>999THE»R(Z)=999 
3070 FORY=1T08;RE(Y)=R(Y)!NEXT!NEXT:GOSUB110;PRINTSTRING»(61,131 
) :X=0:FQRZ=1TOB:IFR(Z)>999-TSi50TJCNX=X+1 
3080 NEXT:FX>2T}eM=i:PRINT"MUnttNSK IMS FALLEN DUE TO CRHICAL 
SUPPLY NEEDS! ":PRINT 

3090 PRINT:PRINT"D0 you HW<T to SA(€ your GAME on TtfE?" 
3100 I=INKEY$:iFI=""TfCN3100aSEIFI="Y"TfC}eOOO 
3110 PRINT"DO YOU W*n TO PLAY AGAIN?" 
3120 I=INKEY$:iFI=""THEN3120aSEFI="Y"THEM«JNaSEEM) 
1000 FT<10T=20 

1010 K=«<-(T-10)i250;IFM=1THEM<=K+500 
1020 FORZ=lT08:K=»<+R(Z)/(999-TSi50)iL<Z)ilOO!R(Z)=R(Z)-10«L(Z)JI 

FR(Z)^OR(Z)=0 continued on next page 
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HM K^-R(Z)/UIL2:NEXT:K=IMT(K) 5IFK<1K=1 

Wi RETURN 

5100 Ilf>UT"INSERT YOUR DATA IfK AND PRESS ENTER. ";LW:TS=TSti:S 

=S+.31JIFS>3THENYE=1912:iFS>5T)CNS=l 

5010 PRD(T*-1,A!PRINT*-1,A1:PRINT»-1,K,R(1),R(Z),R(3),R(1),R(5), 

R(6),R(7),R(8),S,YE,NJS:GOT03110 

6000 REST0RE:FGRY=lT0mz:REA0A2!NEXT:inO5F0RX=Z+lT05:READA3:i 

FA3=AlTNEN602taSOEXT 

6010 ffAl=A2THEJ«ET«9CLSECLSJPRIMTCH»(23):PRINT"C(]NERATlLATI0N 

s:":primt:print:print;primt" you hw€ been prohoted to":printa2! 
" . " :ai=a2.torz=ito3ooo:icxt:goto30oo 

6020 IFK>Zil0000-2000RETinCLSECLS:PRINTCH»(23):PRINT"BAD NEHS! 

":print:print:primt;print" because of your poor shohing,":primt 

"YOU miE BEEN DENOTED TO THE":PRINT"RW«< OF "}A2;".":Al=A2:n)RZ 

=ito30oo:»ext:goto30oo 

7000 print:print:prinn«( 18) "press enter to continue" 

7010 I=INKEY»:in=""THEN7010aSEas:PRINT"CONGRATULAnONS, YOU H 
tfX. COHFIETEO TfC SINULAnON.";PRINr;PRINT:PRINT" YOU BEGAN TH 
E GMNE AS A LIEUTENANT MC YOU HM€ NOH AnADCD":PRINT"T)E RAN< 
OF "{Air. ".'PRINT 

7020 PRINT" YOU WtX. ACCUMUU^TED"}K}" VICTORY P0INTS.":EM) 
8000 IFT=lTHEI«ETURMELSEFORZ=lTO1500:NEXT:aS:PRINT"LOG ENTRY FO 

R co»a)Y";ts+i5" on day";t-i;".":print:printai;" "}a;" in comAN 

D.":GOSUB3020:PRINT!PRINT!PRINnAB(21)"PRESS 'C TO CONTINUE" 



8010 I=IM<EY«:in="C"T}EMeURNELSE8010 

50000 GosuBi«i.'PflKEU+i»6o:paKEUfZ,is:FaRZ=iTon:us=usR(i):)EXT:R 

ETURN 

50010 GOSUB101!PaKEUtl,604RM)M0):Pa<EU+2,5:U646R(t):RETURN 

50020 GOSUB101:POKEIK1,10!POKEIK2,15:U5=USR<0):R 

S-80 DISK CHANGES 

10 C«D"T";RAND0l«aS:CLEAR65fl:DEFSTRA-j:0EFINTV-ZJDIHB(17),J<19) 
:T=1:C=" m "!J(fl)=STRING«(128,128):PRINTM92,J(0);j(0);j(0) 

}J(0);jx=63:for z=o to 62:set(x+z,io)jset(X-z,io):set(x+z,31):se 
t(x-z,31):(cxt:gosubio2 

100 JF="//////////////////////"5U=VARPTR(JF)Jl)=PEEK(U*l)+256iPEE 

k<u+z)}OEFusro=o:return 

101 JH="///////////////////////////":U=VAiyTR(JH):U=«EK(U+l)+Z5 
6iPEEK(U+2) '.DEFUSROmiRETURN 

210 I=INKEY$:iFI=""THEN21flaSEIFIO"N"TI£N300aSEPRIMT«(16)"mA 

T IS THE NWt OF YOUR LOG";:iNPUT LO$JIF L0«="" T»CNL0$=T0G" 

220 0PEN'T',l,L0i:iNPtJT#l,A,Al,K,R(l),R(2) ,R(3) ,R(1) ,R(5) ,R(6) ,R 

(7),R(8),S,YE,N,TS:CL0SE 

5000 INPUT"HW»T IS THE NAME OF YOUR Lre"5L0»tff L0$="" THEN L0$= 

"LOG" 

5010 TS=TS+i:S=S+.3i:iF S>3 THEN YE=1942:ff S>5 THEN S=l 

5020 0PEN"0".l,LD$:PRINT*l,A:PRINT«l,Ai:PRINTtl,K,R(l),R<2),R(3) 

,R(4) ,R(5) ,R(6) .R(7) .R(8) .S.YE.NJSSCLGSESGOTO 3180 






REH 


1 


KEt\ 




I 


10 


FOR 



20 



100 



101 



102 



183 



APPLE VERSION 
MX CONVOY in 

«n (C) HILLIAM VtmiS 
JOHN m^ 

Z = 1 TO 325: REM) Y; MEXT 
: FOR Z = 770 TO 790: I^AD Y 

: POKE z,y: next j restore 

DIM B*(17):XC = 9*. GOSUB 5001 
O: HOME : FLASH t FOR Y = 1 TO 
6J HTAE: 17*. PRINT "CONVOY": GOSUB 
50070: MEXT : NORMW. 
DATA 12,26,12,30,10,28,11,28 
,8,28,16,28,12,22,12,31,10,2 
1,10,32,11,21,11,32,6,28,8,2 
1,8,32,6,21,10,36,11,20,11,3 
6,3,0,12,0,3,0,10,1,3,8,5,2, 
3,0,1,3,3,0,1,1,3,0,1,5,3,0, 
2,6,3,0,1,7,3,8,1,8 
DftTA 15,19,21,2,15,19,21,3,1 
5,21,23,1,15,21,21,5,13,31,3 
9,5,13,32,39,6,13,36,39,7,13 
,38,39,8,5,0,1,20,5,8,2,21,5 
,2,3,23,12,0,5,35,12,0,1,36, 
12,1,5,36,12,30,35,19,12,38, 
39,19,12,26,35,20,12,22,33,2 
1,12,22,39,22,12,28,39,23,12 
,18,39,21 

DATA 12,16,35,25,12,12,33,26 
,12,18,23,27,12,10,23,28,12, 
36,37,28,12,10,29,29,12,36,3 
7,28,12,12,27,30,12,12,27,31 
,12,32,39,30,12,30,39,37,12, 
12,15,32,12,18,39,32,12,12,1 
5,33,12,20,39,33,12,28,39 
DATA 31,12,11,18,35,12,20,39 
,35,12,12,39,36,12,8,39,37,1 
2,8,39,^,12,10,39,39,0,0,0, 
0,9,19,0,22,31,0,37,39,8,9,1 
9,1,22,31,1,37,39,1,7,17,2,2 
1,33,2,36,39,2,18,19,2,22,22 
,2,6,19,3,21,22,3,21,31,3,36 
,38,3,6,17 



105 



200 



210 
300 



310 



101 DATA 1,21,31,1,28,31,5,18,1 
9,1,21,22,3,21,23,1,3,28,5,7 
,36,6,7,26,7,32,35,7,173,18, 
192,136,208,5,206,1,3,210,9, 
202,208,215,171,0,3,76,2,3,9 
6 

DATA LIEUTENANT,LIEUTENANT 
COMfWCER,C»tW€)ER,CAPTAIN, 
COMMODORE 

VTAB 22: CALL - 868: HTAB 1 
: PRINT "IS THIS YOUR FIRST 
VOYAGE (Y/N)?";: GET I*: F 
I» = "N" THEN GOSUB 58168 
TEXT 

HOC : HTAB 3: INVERSE : PRINT 
"ARCTIC CONVOY COMWM) HEADQ 

UARTERS": mm. : f k > o then 

358 

VTtf! i: INPUT " HHO IS REP 

ORTING FOR DUTY? ";A$:A» = 
LEFT* (A$,16): ff A$ = "" TICN 

Ai = "HORNBLOJtR" 
320 Al< = "LIEUTENANT" 
310 PRINT •"", REM CTRLG 

PRINT : PRINT : PRINT Alt}" 

";a$: PRINT : prm "your ex 

PERIENCE IS »;K}".": PRINT " 

YOU ARE TAKING OUT CONVOY *" 

JTS + IJ".": PRINT : PRINT " 

IS THIS CORRECT ";: FUffiH : PRINT 

"(Y/N)?"5: NORMW. 

GET M: if W = "" T»€N 360 

F M < > "N" THEN 100 

K = o:s = o:ts = 8:ye = i9ii: 

N = 8: GOTO 388 

F K = 8 then for Z = 1 to 

8:R(Z) = INT (199 I RND (1 

)) + 88e:RE(Z) = R(Z): next 
HOME : print "construction p 
hase": print : htab lo: gosub 

128: goto 110 

print "SOVIET REQUIREMENTS": 



358 



360 
378 
380 

100 



110 



120 



F-RINT : INVERSE : VTAB 8 
138 F'RINT "FUEL "JRd): PRINT 
"NVO ";R(2): PRINT "TANKS 

";r(3): print "planes ";r( 
d: print "ORE ";r(5); print 

"FOO) "JR(6): print "GRAIN 
";R(7): PRINT "TIMBER "|R( 

8): RETURN 
HO NOWWL : VTAB li: HTAB li: PRINT 

"SIZE OF CONVOY IS "{LI" SHI 

PS." 
150 VTAB 28 : HTAB 9: INVERSE : PRINT 

"ENTER 'B' TO CONTINUE": NOWttL 

: F L = 15 THEN 630 
160 VT« 12: HTAB 16: PRINT "SHI 

p* ";l + i;: input " cargo 

";B»(L + D: POKE 768,58 + L 

I 3: POKE 769,15: CALL 778: 

F B«(L + 1) = "0" TtCN 630 

170 GOSUB 190: IF M = THEN 110 

180 B*(L + 1) = STRi (M): GOTO 6 



190 « = o:b* 


= LEFT* <B$(L + 1), 




2) 




500 


IFB$ = 


"FU" THEN M = 1 


510 


FB$ = 


"m" THEN M = 2 


520 


F B$ = 


"TA" THEN H = 3 


530 


F B$ = 


"PL" THEN M = 1 


510 


FB$ = 


"OR" THEN M = 5 


550 


FB$ = 


"FO" THEN M = 6 


560 


FB$ = 


"GR" THEN M = 7 


570 


FB$ = 


"TL" THEN M = 8 


580 


IF B$ = 


"ES" THEN M = 9 


590 


RETURN 




680 L(M) = L(M) + 1 


618 R(M) = R(M) - 1B: F R(M) < 




THEN R(M) = 8 


628 L = L + 


i: GOTO lie 


630 


VTAB 28 


PRINT "YOUR CONVOY 




IS RE/»Y TO SAIL." 


618 L(9) = 1 


+ INT (K / 18888): IF 




L(9) > 1 THEN L(9) = 1 
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650 PRINT " YOUR ESCORT IS "JL 


ENCE POMS ARE NOH "} M ( 


rchmcel (A)? ";: norhm. 


W," DESTROYER(S). '", 


K)r."}: GOSUB 50010 


1190 C0L0R= O: PLOT 35,14: GOSUB 


660 VTAB 2'\\ HTAB 275 FLASH : PRINT 


815 F K > THEN TO = lOO: F K 


50060: GOSUB 50020: GOSUB 50 


"BfifinLUCK!";: vsxm. : print 


> 5000 TJCN TO = TD / V. F 


020: COLOR= 12: PLOT 35,14 


""{jfinsiiB 50010: for z = i to 


K > 10000 THEN TO = TD / 5 


1200 HTAB 21 : PRM "OR MU»MISK 


9'MIY = L(Z): NEXT tX = 


850 F RR = THEN 890 


(M)?"; 


665 LI = L:L2 = L(9):SP = V.K = K 


860 FOR Z = 1 TO L: F VAL (B$( 


1210 COLOR= O: PLOT 31,12: WISIIB 


+ LI I 10 + L2 « 20 


Z)) = RR THEN mi) = B$(L): 


50060: FOR Z = 1 TO 1000 : ICXT 


670 RESTORE 5 TEXT : HOME 


B»(L) = STR$ (RR) 


: COLOR= 12: PLOT 31,12 


680 J$ = CH» (221) + cm (219 


870 NEXT 


1220 GOTO 1170 


) 


890 PRM "": F S = THEN S = 


1230 F X = 205 THEN XA = 31:YA = 


685 FOR Z = 1 TO 9:L(Z) = M(Z): NEXT 


i:ye = mi 


12: GOTO 1300 


: FOR Z = 1 TO L + L(9): READ 


900 T = T + i: F T < > 1 then WMIB 


1240 F X = 193 TtCN nOinR= O: PLOT 


x,y: vtab x: htab y: print j 


8000 


35,14:XA = 35:YA = 14: GOTO 


$;: ROSiiB 50060: next 


902 RESTORE : H0»€ : FOR ZZ = 1 TO 


1300 


695 RESTOi^ : FOR Z = 1 TO L + L 


38: READ X: «XT ZZ: NORMAL 


1250 GUlU 1170 


(9): f£M) x,y: Otab x: htab 


:xc = 7: RosiiFi soo^o: home 


1300 FOR z = 1 TO 5: nm nR= 3: plot 


y: flash : prm m', 


905 R= M (3« RND (D): FR 


xa,ya: gosub 50060: coLaR= 1 


700 BMRSE : VTAB i: HTAB lO: PRINT 


= 2AM)SP = 3THEN HOME: 


: plotxa,ya: MiKtiR5oo6o: next 


"DESIGNING THE COWOY": NOWW. 


PRM "DWWRFD W^SiitL HAS B 


1310 HOME : VT(« 21: PRM E$;" 


705 FOR XX = 5 TO 13: VTAB XX: HTAB 


EEN REPAIRED.. ^": PRM "RES 


OF "JYEJ" DAY "}T: VTAB 22: PRM 


9: PRINT " "',', l€XT : PRINT 


UHING NORMAL SPEED.. ..":SP = 


"(U = UP, D = DOM, L = LEFT 


710 \ntB 5: PRINT "FUEL "{Ld) 


1 


, R = RIGHT)": VT« 23: FLASH 


: PRINT "AMHO ";l(2): print 


907 F SP = 2 THEN SP = 3 


: PRINT "DiREcnoN?";: normm. 


"TANKS ";L(3): prm "PLANE 


910 READ JA,JB,X,JE: F JA = THEN 


1311 GET 1$: IF 1$ = "" THEN 131 


S "'M'W, PRINT "ORE ";L( 


940 


1 


5): PRINT "FOOD ";l(6): prm 


920 coLOR= ja: vlin jb,x at JE 


1320 F I« < > "U" AM) 1$ < > 


"GRAIN "5L(7): prm "TIMBE 


930 GUIU 910 


"D" W© » < > "L" Ai© It < 


R ";l(8): prm "escort ";l( 


m fp2 = ithen mioR=o: plot 


> "R" THEN 1311 


9) 


G,H 


1330 miOR=7: plotg,h:p = p + 


720 F Z = L + 1 OR L(9) = THEN 


999 KtM m SEASONS AND ICE aO 


1 


805 


HS ni 


1340 F I> = "U" THEN H = H - 2: 


730 GET 1$: IF I* = "" OR 1$ < " 


1000 ON S GOTO 1010,1020,1030,10 


F SCRNC G,H) < > 7 THEN 


A" OR » > "Z" TtCN 730 


40 


H = H + 2:p = P - 1 


7M wxm. : VTAB x: htab y: gosub 


1010 E$ = "FM1":Z = 19: GOTO 105 


1350 F 1$ = "R" TIO G = G + i: 


50060: PRM i»; 





F SLRN( G,H) < > 7 THEN 


750 GET m: IF n$ = "" or m < 


1020 E» = "HMER":Z = 25: GOTO 1 


G = G - i:p = P - 1 


"A" OR n$ > "Z" THEN 750 


050 


1360 F 1$ = "L" TJCN G = G - i: 


760 Y = Y + i: HTAB Y: GOSIB 5006 


1030 E$ = "SPRING":Z = 19: GOTO 1 


F SCWI( G,H) < > 7 THEN 


o: PRM m; 


050 


G = G + i:p = P - 1 


770 « = o:b$ = i» + m: gusub so 


1040 E$ = "SUW€R":Z = 9: GOTO 10 


1370 F 1$ = "D" THEN H = H + 2: 


0:ffM = 9ORH = 0THENY = 


50 


GOSIIR 300D: F SCRN( G,H) < 


Y - i: HTAB Y: FLASH : PRM 


1050 coi,OR= 15: FOR ZZ = 1 TO z: 


>7Tf£NH = H-2:P = P- 


j$;: FOR xz = 1 TO 5: gosub 


READ JA.JB,X: HLIN JA,JB AT 


1 


50080: fEXT i goto 730 


X: NEXT 


1380 minR= o: plotg.h: prm " 


780 NORMAk : IF L(M) = THEN l» 


1055 F AD = 1 THEN AD = O: GOTO 


";: IF P = SP THEN GOTO 140 


= "Z": GOTO 770 


1600 





790 L(M) = L(M) - i: VEX\ 


1099 REM ox START OF TRF m 


1390 GOTO 1311 


800 GOTO 700 


1100 IF P2 = THEN G = 5:H = 30 


1400 P = 


805 F L(9) > THEN FOR Z = 1 TO 


: coLOR= o: plot g,h 


1500 HOME : PRM "NAH SUBM<«IN 


L(9): VT« x: HTAB y: prm 


1110 HOrC : PRM E*J" (F "JYEJ" 


E SEARCH" 


"ES";: i^AD x,y: GoaiB 5fl06o 


, DAY "JT 


1510 F«{ X = 1 TO 20:Z = M (5 


: WMH 50060: icct :l(9) = 


1120 F P2 = 1 THEN 1300 


+ (34 I RND (1))):Y = M 


O: GOTO 700 


1130 PRINT : PRM "YOUR CONVOY 


(30 I Ri® (D): IF SU<N( Z 


810 VT/« 22: HTMi i: PRM "IS T 


IS WEST OF BRnAIN":P2 = 1 


,Y) < > 7 THEN 1540 


HIS THE RIGHT C(»FIGII%nON 


1140 F[R Z = 1 TO lO: GUbUB 5006 


1520 m 0R= 13: PLOT z,y: GUSUB 


(Y/N)?":: PRM "" 


o: ciLOR= 7: PLOT g,h: (mf. 


50060: GOSUE: 50020: COLOR= 7 


820 GET 1$: IF I* = "" TICN 820 


50060: coLOR= o: PLOT g,h: icn 


: HOT Z,Y 


830 IF 1$ = "N" THEN RESTOI^ : FOR 


1150 I^I^IR 50010 


1530 IF Z = G AND Y = H THEN FOR 


Z = 1 TO 9:L(Z) = H(Z): fCXT 


1160 VTAB 24: PRINT "IS 'iWR DES 


H = 1 TO 4: GlISIFi 50070: ca.0R= 


: GOTO 670 


TINAHON "5 


3: PLOT Z,Y: GIHJB 50070: COLOR= 


832 FOR Z = 1 TO L:K = K + R( VW. 


1170 X = PEEK ( - 16^4): F X > 


o: PLOT z,y: iext :pa = i:pr 


(B$(Z))) / 10000 I (9 - VAL 


127 THEN Pt»<E - 16368,0: GOTO 


= 01X = 20: GOTO 2400 


<et{Z)H 1 (15 - Z): fCXT 


1230 


1540 NEXT 


m IF T = T»€N PRM "EXPtkl 


1180 HTAB 21 : INVERSE : PRINT "A 
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1550 IF Pft = 1 TtCN PA = 01 IF INT 


2060 COL0R-= 15: HLIN XI, XI + 2 AT 


"THE OWWGED VESSa RETURNED 


( RKD (1) I 2) = THEN Z = 


Zi: VLIN Zl - 2,Z1 + 2 AT XI 


TO ENGLAND.";; GOTO 900 


g:y = h: goto 1530 


+ 1: COLOR= 6: PLOT XI + 1, 


2310 IF INT (2 I RM) (D) = 1 THEN 


1560 IF (T = 4 OR T = 5) AND INT 


Zl 


K = K - 30:L3 = L3 + i:l4 = 


( RM) (1) I 2) = THEN Z = 


2070 FOR ZK = 1 TO TD: NEXT 


L4 - 1; PRINT "THE DAMAWT) V 


g:y = h: goto 1530 


2080 F PEEK ( - 16287) < 128 AND 


ESSEL SINKS EMiaUTE.": GOTO 


1600 HOME : PRINT "LUFTHW-hL AIR 


PEEK ( - 16286) < 128 THEN 


900 


SEARCH": ON S GOTO 1601,160 


2130 


2320 K = K + 20; PRINT "THE DANAG 


6,1604,1602 


2090 rmSIIR 50060 


ED VESSEL HILL ffSKDJE. StfELY 


1602 Y = 25:Z = 19: GOSUB 1620 :Y = 


2100 IF XI < X - 2 OR XI > X + 2 


."; GOTO 900 


iv,i = 21 : rmf. 1620 


OR Zl < > Z Tt€N 2130 


2380 K = K - 30:RR = 0:H( VtL <B» 


1604 Y = 28:Z = 14: GUSUB 1620 


2110 FOR Y2 = 1 TO lO: RnSIIF: 500 


(L))) =m VAL (BUD)) - 1: 


1606 Y = 29:Z = 12: GORUB 1620 :Y = 


60:R = INT <4 I RND (D): COLOR= 


L3 = L3 + 1; PRINT "SHP » " 


27:Z = 12: GOSUE: 1620:Y = 26 


13: PLOT XI - 1 + R,Zi: COL0R= 6: 


+ STR» (R) +" HAS BEEN SU 


:z = 17: Gusue 162o:y = 22:2 


PLOT XI - 1 + R,Zi: NEXT 


nk.":l = l-i:fsp<4then 


= 23: GUSUB 1620;Y = 2i:z = 


2120 GOTO 2392 


SP = 4 


27: ROSIIF: 1620: GOTO 1800 


2130 COLOR= 6: HLIN XI, XI + 2 AT 


2386 GOTO 900 


1620 IF H > Z THEN RETURN 


Zi; VLIN Zl - 2,Z1 + 2 AT XI 


im F F1? = 1 THEN FLASH : PRINT 


1625 COL0R= 13; PLOT Y,Z 


+ 1 


"AIR AHACK DRILL HAS SUCCES 


1630 FOR H = 1 TO 16: GUMJB 5008 


2140 X2 = FDL (0): F X2 < 80 THEN 


SFU.!": GOSUB 50010: NORHW. 





Zl = Zl + 1: IF Zl > 36 THEN 


;K = K + 20: GOTO 900 


1640 Rl = INT ( RND (1) + .5):R2 


Zl = 36 


ZiVb FLASH ; PRINT "AIR AHACK H 


= INT ( RM) (1) + .5);Y = 


2150 F X2 > 170 THEN Zl = Zl - 


AS REPELLED!": GOSUB 50010: NORHAL 


Y - Ri:z = Z - R2: IF H <: 12 


1: F Zl < 3 THEN Zl = 3 


:k = K + ioo:l6 = l6 + i 


AND G > 26 THEN Y = Y + Rl I 


2160 X2 = POL (D: F X2 > 155 then 


2397LL = LL-1:FLL<1THEN 


2 


XI = XI + 2: F XI > 36 THEN 


R= INT (2 1 RM) (D): F 


1641 FY>39THENY = 39 


XI = 36 


R = 1 THEN 900 


1642 IF Z < THEN Z = 


2170 F X2 < 100 THEN XI = XI - 


2398 R = INT (2 1 FM) (D): F 


1650 V = bi:KN( Y,Z): COLOR= 5: PLOT 


2: F XI < 3 THEN XI = 3 


R = 1 THEN GOTO 2010 


Y,Z: FY = GAIi)Z = HTHEN 


2180 RETURN 


2400 TEXT : HOME : IF PR = 1 THEN 


F* = o:pa = i:n = 16: goto 2 


2190 COLOR= 6: ftlN X,Y AT Z: PLOT 


VTAB 10; mm 8: inverse : print 


000 


X,Z- 1 


"SUBHtffflC PURSUn DRT\\"'. PRINT 


1660 for ZK = 1 TO 75: NEXT 


2200 X = X + i:y = X + 3:z = z + 


; HT« 10: PRINT "mm sewi 


1670 COLOR= y: PLOT Y,Z: i€XT : RETURN 


INT (3 I RM) (1) - 1) 


CHPHffiE": NORMW. : GnfiUP50 


1800 HOC : PRINT "1. AIR DEFENC 


2210 F Z < 2 THEN Z = 2 


018 


E DRTl 1 3. REGROUP" CONVOY": 


2220 F Z > 38 THEN Z = 38 


2410 F PR = THEN VT« lO: HTAB 


FWNT "2. SUEHMONE DRILL 


2230 F X = 36 THEN 2250 


12: FLASH : PRINT "COMBAT ST 


4. CONTINUE" 


2240 GOTO 2040 


AnoNS": Mxm. ; gosif 5001 


1810 PR = 1 


2250 F PR = 1 THEN FLASH : PRINT 





1820 VTAB 23: HTAB 30: FLASH : PRINT 


"AIR AHACK DRILL HAS UNSUCE 


2415 GR : COLOR= 6; FOR X = TO 


"ORDERS:";: norhal 


SSFUL!": GOSUB 50018: NORTM. 


19: HLIN 18,30 AT X: NEXT ; HOME 


1830 GET 1$: F 1$ = "" TtCN GOSUB 


:K = K - 7; GOTO 900 


; FLASH : HTAB 13: PRINT "RA 


S006i; GUlU 1830 


2260 FLASH : PRINT "BOffiERS mX. 


m( SEMOX": NORm. 


1840 F 1$ < "1" OR 1$ > "4" THEN 


PENETRATED YOUR DtFtNCES!": 


2420 COLOR= 0:XH = 20:YH = lO: PLOT 


183Q 


HMFC 50018: NORtM. 


20,io:xz = 8 


1845 PRINT »" 


2270 HOC : FLASH : PRINT "BOhBS 


2430 XS = INT ( RND (1) X 19) ♦ 


1851 ON WL (»> GUlU 2000,2410 


ffS. BEING DROPfED ON YOUR 


10:YS = INT ( RM) (1) 1 19) 


,670,901 


coM^!": GnsiF sooio: norim. 


2440 FOR X = TO 19: nninR= i: HUN 


2M0 TEXT : HDHE : F PR = ITTCN 


2288 R = L: F SP = 4 THEN R = INT 


10,38 AT X: FOR Z = 1 TO 25: 


^AB le: mm 12: iwesE : 


(L « RM) (1) + 1):B$(L ♦ 1) 


NEXT : COLGR= 6: HIN 18,38 


PfONT "AIR AHACK DfOLL": NORHAL 


= B$(R): FOR Z = R TO L ♦ 1 


AT X: COLOR= 8: PLOT XH,YH 


: GUSUB 50010 


:b$(Z) = b»(z + d: fcxT 


2458 F X = YS TICN Cfll nR= 13: PLOT 


2082 F PR = 8 Tl€N VTAB 18: HT« 


2298 RR = ML (B$(R)): F INT ( 


xs.Ys: FDR z = 1 TO a: gosub 


12: FLASH : PRINT "UIWAT ST 


4 1 RND (D) =20RSP<40R 


58868: MJll 


AiiUNS": vofm. : hirb sosi 


WL (B$(L)) <3 THEN Z3U8 


2468 GOSUB 58888: NEXT 


8: GR 


2295 (DC : FLASH : PRINT "SHP 


2478 vat. J FLASH : HT« 13: PRINT 


2818 XC = 6: CnSIB 58848: HDHE 


» •• + STR$ (R) ♦■• HAS BEEN 


"RADAR SEMKH": NORMAL 


2828 Z = INT (37 I RND (1) * 1) 


DAJWGED.-JK = K - 15:L4 = L 


2488 PRINT : PRINT "(U = UP, D = 


:X = IMT (K / 1588): F X > 


4 ♦ 1: PRINT : INPUT "HILL Y 


DONN, L = LEFT, R = RIGHT)" 


24 THEN X = 24 


OU REDUCE SPEED FOR REPAIRS" 


: DWERSE : HTAB 135 PRIMT " 


2838 XI = 17:Z1 = 19:Y = X + 3 


;w: PRINT "": f i$ = "Y" then 


oiREcnoN?";: mqrvl 


2848 COLaR= V, HLIN X,Y AT Z: PLOT 


SP = 2: GOTO 988 


2498 GET I$l F « = "" TKN 249 


X,Z-1 


2308 H( UAL (6$(R))) = H( VN. (B$ 


8 


2858 GOSUB 58888: GOSUB 2868: GOTO 


(R))) - 1:L = L - 1: F IKT 


2495 XZ = XZ + i: ff XZ = 10 AM) 


2198 


(2 I RM> <!)) = 1 Tl€N PRINT 


PR»8THEN HDHE : GOTO 298 
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2780 icxT n: mL nr, wiaiB so 


2975 F H > 20 WD H < 28 AND ( ABS 


2^97 IF XZ = 10 THEN XZ = O: HOhE 


020 


(V - SS - 1) = (« ( ABS (V 


: PRINT "DRILL HAS UNSUCESSF 
UL.":k = K - 25J GOTO 900 
2500 IF I* < > "U" AND 1$ < > 
"D" AND 1$ < > "L" AND 1$ < 


2790 X = PEEK ( - 16381): F X > 
127 THEN POKE - 16368,0:ZJ 

= i:zM = v: GOTO 2820 

2800 FOR ZS = 1 TO ZM: C0L0R= 12 


- SS - 1) = 1 AND K < IflOfll 
)) IVBi 2977 
2976 PRINT "YOU MISSED!":NM = 1 


> "R" THEN 2190 
2510 CXQR= 6: PLOT XH.YH! PLOT 

XS,YS 
2520 F 1$ = "U" THEN YH = YH - 

i: IF YH < THEN YH = 
2530 IF I* = "D" THEN YH = YH + 


:zi = 3 + zs: PLOT n.io: next 

ZS 
2810 H = H + i: IF H > 31 T}€N H = 

31 
2820 NEXT ZM: F ZJ TJCN ZJ = O: 
GOTO 2910 


2977 FOR ZA = 5 TO 2 STEP - i: COL0R= 

za: PLOT x,y: plot x - i,y - i: plot 
X - i,Y + i: plot X + i,y - 

i: PLOT X + 1,Y + i: FOR ZK = 
1 TO 5: GOSUB 50080; NEXT ZK 


i: IF YH > 19 THEN YH = 19 


2830 FOR Y = V TO 33 STEP i:ZN = 


: NEXT ZA 


2510 IF I* = "L" TfCN XH = XH - 


Y 


2978 F PR = «« NM = 1 THEN N 


15 IF XH < 10 THEN XH = 10 


2810 COLOR= 15 


M = O: GOTO 2981 


2550 IF 1$ = "R" THEN XH = XH + 


2850 FOR W = 1 TO ZN:ZY = 3 + V 


2979 IF PR = 1 AND NM = 1 THEN N 


i: IF XH > 30 THEN XH = 30 


V 


M = 0:K = K - 25: PRINT "PRA 


2560 F XS = XH WO YS = YH THEN 


2860 PLOT ZY,18 


CnCE HAS UNSIirCESFUL.": GOTO 


FOR Z = 1 TO 1! GOSUB 50070 


2870 NEXT W: CALL 770: GOSUB 50 


900 


J caoR= 15: PLOT xs,Ys: gosub 

50070: COLCK= O: PLOT xs,Ys; 


020 
2880 FOR XX = 1 TO ZN! COLOR= 12 


2980 COL0R= 2', HIN H,5 + H AT V 


NEXT : GOTO 2610 
2570 R = INT ( RND (1) X 2); F 

R = 1 TFCN 2600 
2580 R = INT ( RM) (1) I 3 - D: 

xs = xs + r: f xs < 10 then 


:n = 3 + xx: plot n,i8: next 

XX 
2890 X = PEEK ( - 16381): IF X > 
127 THEN POKE - 16368,0:Y = 
33:ZJ = i: GOTO 2910 


: PLOT 2 + H,V - i: PLOT 2 + 
H,V - 2: FIOT 3 + H,V - 2: BWERSE 
: PRINT "A HU!"; NORMAL :K = K + 
lO: IF PR = THEN K = K t 1 
60:L5 = L5 + 1 


XS= 10 
2590 IF XS > 30 THEN XS = 30 
2600 R = INT ( RND (1) I 3 - 1): 

YS = YS + R: F YS < TftN 

YS = 
2610 F YS > 19 Tf£N YS = 19 
2620 F XS = XH »B YS = YH THEN 


2900 H = H + i: IF H > 31 THEN H = 

31 
2910 NEXT Y: F ZJ TICN ZJ = O: GOTO 

2910 
2920 H0)€ 
2930 INVERSE : PRINT "COHfWND?": 


2981 Y = Y + i: FOR ZG = 1 TO 30: 

COLOR= O: PLOT X,Y: PLOT (X 
+ 2),Y: GOSUE! 50020: GOSUE; 

5O060: ctic«= 2: plot x,y: plot 
<x + 2),y::y = y + i: if y = 

38 Tl€N ZG = 30: GOTO 2983 

2982 NEXT ZG 


2560 


2910 IF X < > 196 THEN 2970 


2630 GOTO 2110 


2950 HOME : PRINT : PRINT "PRESE 


2VtjJ GOTO 900 


2610 V = INT ( RND (1) I 20 + 1) 


m SETTING IS AT 100 FATHOMS 

II 


2981 PRINT "IWnX) LAUNCHED!": WKDR 


2650 SS = 23 


♦ 


50oio:k = K - 3o:rr = o:m( val 


2660 H = INT ( RND (1) i 16 + 9) 

:su = V + 23 - H 
2670 HM = H 
2680 TEXT : H0»£ : GR 
2690 COLOR-^ 12: FOR X = 10 TO 27 

: HLIN 0,39 AT X: NEXT X 
2700 COLOR- 9: HIN 1,38 AT 15: HLIN 

1,38 AT 22: VLIN 15,22 AT i: 


2960 DffUT "NEW SETTING: ";SS:SS = 
INT (SS / 10 + 13): F SS > 
37 THEN SS = 37 

2970 TEXT : HOME : GR : COLOR= 7 

: FOR X = TO lo: h.in 0,39 
AT x: next : color- 2: for 

X = 11 TO 39: HLIN 0,39 AT X 
: NEXT 

2971 COLOR- 8: HLIN 9,17 AT 10 ; HLIN 
8,18 AT 9: HLIN 11,15 AT 8:V 

= V+ 13 

2972 COLOR'= O: HLIN «,H + 5 AT V 
: PLOT H + 2,V - i: PLOT H + 
2,y - 2: PLOT 3 + H,V - 2:x = 


(B»(L))) = M( WL (B$(L))) - 
1:L3 = L3 + i: PRINT "SHF' ♦ 
" + SIR* (L) + " HAS BEEN 
sunk.":l = L - 1 

2985 F L = TJ€N GOSUB 50010: 
TEXT : GOTO 3000 

2986 F SP < 1 THEN LI = LI - i: 


WJN 15,22 AT 38 

2710 IF K > 11000 THEN Z9 = INT 

(6 X RND (1) + .5): F Z9 > 

= 1 THEN INVERSE : PRINT " 

GUAGE MALFUNCnONI": GUSUB 5 

ooio: GusuB 50010: h«€ : goto 

2730 
2720 Y = 2i: COLOR= O: FOR X = 1 TO 

36 STCP 2: PLOT x,y: next 


2987 B$(L + 1) = "": F XZ = 10 TICN 
XZ = O: GOTO 2110 

2988 LM = LM - i: F LM = THEN 
2992 

2989 PRINT "DO YOU WANT ANOTHER 


18: FOR Y = 8 TO 6 STEP - 1 

: coLK^ o: PLOT x,y: gosue; 

50020 
2973 gosub 50060: C0L0R-= 7', PLOT 

x,y:x = X + i: NEXT : for y = 
7 TO lo: coLOR= o: PLOT x,y: 

GOSUE! 50030: GOSUE! 50060: COLOR= 

7: PLOT x,y:x = x + i: next 


RUN (Y/N)?" 
2990 GET 1$: IF !♦ = "" Tl€N 299 
n 


2730 HTAE; H: FLASH : PRINT "SON 

AR REPiKT": mm. : print " 
m 'D'TO chwce depth charg 

E SETTING": HTAB 7', PRINT "H 
IT any KEY FOR AHACK YOX." 
2710 FW; Z« = SU TO V STEP - i: 


u 

2991 IF I» = "Y" TJ€N 2610 

2992 IF INT (3 x RND (D) = 1 THEN 
PRINT "ANOTHER SUBMARINE IS 
AffROACHING!": I^MIR 50010: 
GOTO 2100 


COLOR= 15 


2971 FOR Y = 11 TO SS:SC = SCRN( 


2993 IF INT (5 X ra® (D) > 2 T^€N 


2750 FOR n = 1 TO ZM 


x,Y): ciiOR= o: plot x,y: for 


BK = i: GOTO 900 


2760 ZY = 3 + ZZ 


ZK = 1 TO 50: NEXT : GOSUE 5 


2991 GOTO 900 


2770 PLOT ZY, 18 


oo6o: coLOR= sc: plot x,y: next 
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13000 IF G = (XA) W© H = (Yft) OR 
L < = THEN INVERSE ! GOTO 
3020 

3010 RETURN 

3020 TEXT : HOME ! PRINT "ARCTIC 
COWvOY COHMAND HEADQUARTERS 

II 

3030 GOSUE: 1000!Z = 1 + K / 1000 
O: IF Z > 5 TtCN Z = 5 

3010 IF m < > A2$ THEN 6000 
305fA2* ' "" 

3060 IF G = (XA) m\\= (YA) OR 
L < = TI€N HTAE! 5J F"RINT 
"VOYAGE TERMimnON FILE" 

3070 PRINT : PRINT "LOG Smmi 

FCR ";ai*;" "5A$;":"! gosue; 

3080 : GOTO 3120 
3080 NORtlAL : PRINT I PRINT "YOU 
R INHIAL CONVOY STRENGTH HA 
S ";L1! print "AND YOU HERE 
ESORTED BY "JLZ: PRINT "DES 
TROYER(S). OF TFtSE SHIP'S YO 
U LOST"! PRINT L3;" AND HAD 
"ilV," DAMAGED." 

3090 PRINT : PRINT "DURING YOUR 
VOYAGE YOU SANK "JLS! PRINT 
"SUEiHARINE(S) m> DffldED ";L 
6: PRINT "PLANE(S)." 

3100 IF K < THm K = 

3110 PRINT : PRINT "YOIR EXPERIE 
NCE POINTS ARE NOH "; INT (K 
);"."; RETURN 

3120 PRINT : PRINT ! PRINT "(PRE 
SS RETURN FOR SOVIET REQUM 
fCNTS)" 

313Q GET I$! IF 1$ = "" THEN 313 


3H0 IF TS + 1 = 18 THEN HOffi : 

FraNT ! PRINT : GOSUEi m\ GOTO 
7000 

3150 HOME ! PRINT : PRINT : FOR 
Z = 1 TO 8;RE(Z) = RE(Z) + INT 
(50 X RND (1) + 1); IF F£(Z 
) > 999 THEN RE(Z) = 999 

3160 FOR Y = 1 TO 8;R(Y) = RE(Y) 

: NEXT ; NEXT : Gosif; 120 :x = 

0: FOR Z = 1 TO 8: IF RE(Z) > 
999 - TS X 10 THEN X = X + 1 

3170 NEXT ; IF X > 2 THEN N = 1; 
PRINT "MURMANSK HAS FALLEN 
DUE TO CRinCAL": PRINT "SHO 
RTAGE OF SIFFIIES": PRINT 

3180 PRINT ! PRINT "DO YOU WANT 
TO SAVE YOlS? GAME TO DISK?"} 

3190 GET 1$: IF I* = "" Tf€N 319 


3200 IF 1$ = "Y" THEN 50090 



3210 PRINT ! PRINT J PRINT "DO Y 

OU mn TO PLAY AGAIN?"; 
3220 GET 1$; IF li = "" THEN 322 


3230 IF 1$ = "Y" T^€N RW< 
3210 END 

1000 IF T < 10 THEN T = 20 

1010 K = K - (T - 10) X 250: F N 
= 1 THEN K = K + 500 

1020 FCI; Z = 1 TO 8!K = K + RE(Z 
) / (999 - TS X 50) X M(Z) x 
100:RE(Z) = RE(Z) - 10 X M(Z 
): F RE(Z) < O THEN RE(Z) = 


1030 K = K - RE(Z) / 100 ^ 2\ NEXT 
:K = INT (K); IF K < 1 THEN 

K = 1 
1010 RETURN 
6000 RESTOFE 5 FOR Y = 1 TO 316 + 

Z: READ AZt: NEXT ! F Z = 5 
THEN 6030 
6010 FOR X = Z + 1 TO 5: READ A3 

$: IF A3* = Alt THEN 6060 

6020 NEXT 

6030 IF Al$ = A2$ THEN 3000 
6010 F-RINT ! PRINT ! PRINT "CONG 
RATULATIONS!"! PRINT : PRINT 
" YOU HAVE BEEN PROMOTED T 
0" 

6050 FLASH ; PRINT 5 HTAB 55 PRINT 

a2$:ai$ = A2*: gcbue; 50010: normal 
: goto 3000 
6060 if k > z x 10000 - 2000 then 

2973 

6070 PRINT : PRINT ! PRINT "BAD 
NEWS!": PRINT : PRINT " BE 
W^JSE OF YOUR POOR SHMNG Y 
OJ": PRINT "HAVE BEEN DEMOF 
D TO Tf€ RANK OF": FLASH : PRINT 
A2«;Alt = A2$: GOSUE; 50010: NORMAL 

; GOTO 3000 

7000 PRINT : PRINT : HTAB 6: PRINT 
"PRESS 'FETURN' TO CCMINIE" 

7010 GET 1$: IF I» = "" THEN 701 


7020 HOME : PRINT "CWJGRATULATIO 
NS, YOU HAVE COMPLETED": PRINT 
"THE SIMULATION!": PRINT : F^RINT 
: PRINT "YOU BEGW THE GAME 
AS A LIEUTENANT": PRINT "AND 
YOU HAt£ NOW ATTAINED T^£ R 

<m OF": PRINT Ai*;".": print 

7030 PRINT "YOU HAI^ ACCUMULATED 

";k;" VICTORY": print "poin 
TS.": print : print : end 

8000 NCWm. : F T < = 1 THEN RETURN 

8001 GOSUE: 50010: IF L = THEN 
3000 



TEXT ! W)ME J FltlNT "LOG EN 
TRY FOR CONVOY ";TS + 1}" ON 
DAY ";t - i;"." 
8020 PRINT : PRINT Al*}" "'tM'," 

m amw,"', gosi« 308o: print 
: PRINT : input "press 'RETU 

RN' TO CONTINlE.";i$ 
8010 RETURN 
50000 END 

50010 FOR ZK = 1 TO 2000: NEXT 
50020 FOR ZK = 1 TO 150 : NEXT 
50030 FOR ZK = 1 TO lOO: (€XT : RETURN 
50010 POKE 800,216: POKE 801,160 

: POKE 8fl2,0: POKE 803,76: P(M<E 

801,1i: F1DKE 805,251 
50050 GR : POKE 1021,XC x 16 + X 

c: POKE 60, o: POKE 61, i: pa<E 

62,25i: POKE 63,7: Pa<E 66,1 
: POKE 67, i: CALL 800: RETURN 

50060 R = INT (10 x RM) (1) + 6 

0): poke768,r: poke 769,20: 

CALL 770 : RETUW 

50070 FOR R = 100 TO 70 STEP - 

3: POKE 768,R: FIXE 769,9: CALL 
770 : NEXT : RETIMI 

50080 POKE 768,250; POKE 769,5: CALL 
770 ; RETlffiN 

50089 REM xxx SAVING GAlt xxx 

50090 FWNT ; PRINT : HTAB 5: INVERSE 
; INPUT "m\\ IS THE NAME CF 

Y(xjR log?";lo»: mm. : f 

LO* = "" THEN L0» = "LCK" 

50095 Dt = C*$ (1): PRINT D»;"N 
OMON C,I,0" 

50100 TS = TS + i;s = S + .31: F 

S > 3 THEN YE = 19125 IF S > 

5 THEN S = 1 
50110 PRINT D»;"CfEN";LO* 
50120 PRINT D$;"WRIF ";L0* 
50130 PRINT A$: PRINT Al$; PRINT 

k; for z = 1 TO 8: print r(z 
); NEXT : print s: print ye: 

FltENT mm: print TS 

50110 F'Rint D»;"aosE ";lo» 

50150 GOTO 3210 

50159 rem xxx get DATA FROM PRE 
VIOUS GAME XXX 

50160 HCfE : PRINT : HTAB 6; INVERSE 
: INPUT "mAT IS THE NAME OF 

YOUR log?";lo»: normal ; f 

L0$ = "" Tf€N LOt = "LOG" 
50165 D$ = CHR* (1): PRINT Dt;"N 

OMON C,I,0" 
50170 PRINT D*;"OPEN ";L0$ 
50180 PRINT D*;"REAO ";L0$ 
50190 IlffUT A»: INPUT Al»: INPUT 

K: FOR Z = 1 TO 8: INPUT R(Z 

):re(Z) = R(Z); «xt : infvi 
s: INPUT ye; input n: input 

TS 
50200 PRINT D»;"aOSE "JLO* 
50210 RETURN ^ 
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x-iuinc 



by Chris Freund 




PJS 



For the thousands who 
have enjoyed X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 



Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guide your 
fighter into the trench, find 
the exhaust port, aim and 
fire — all the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 

Level II, 16K - $9.95 



Hie 
Software Exchange 

; ■x...,il> \iii;-i \t,lr..,.l \ll mil',', 
( )KI)I k ION f Kf I .In Ml < ..II IT ) ';M4i 

1-800-258-1790 C 
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n 






RILL 



NORTH ATLANTIC CONVOY RAIDERS 

This game is a simulation of the Bismarck convoy raid of 1941. The 
computer controls the British convoys and British battleships. Will the 
Bismarck sink the Hood, only to be sure in turn? Or, w^ill the Bismarck cripple 
or sink the British Home Fleet. Your decisions will determine the fate of the 
Bismarck. 

This SOLITAIRE game includes software and instructions for the following 
computers: TRS-80' Level II, 16K Memory Apple IT, Applesoft, BASIC, 16K 
Memory beyond BASIC Pet", 16K Memory $15.00 

NUKEWAR 

NUKEWAR is a simulation of a nuclear confrontation between two 
hypothetical countries. You must choose the methods to defend your country 
while your computer will choose its own strategy to try to destroy you utterly! 
NUKEWAR is fast-paced and easy to learn, and can be enjoyed equally by 
players of all ages and levels of experience. 

This SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory. Apple II*, Applesoft* BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 

PLANET MINERS 

PLANET MINERS gives one to four players the chance to stake valuable 
mining claims throughout the solar system in the year 2050. Each player must 
decide which ships to send to which planets and when to resort to sabotage 
and claim-jumping. If there are less than four players, the computer takes the 
other parts. 

Includes software and instructions for the following computers TRS-80* 
Level II, 16K Memory Apple 11*, Applesoft* BASIC, 16K Memory beyond 
BASIC Pet 2001 *, 16K Memory $15.00 

B-1 NUCLEAR BOMBER 

You are the pilot of a B-1 bomber on a mission over the Soviet Union who 
must fly through the Russian defense to the target city, bomb it, and return 
home. Your computer controls the Soviet air defense bases. Your only chance 
to get through is the superior technology of your ECM (electronics counter 
measures) and self-defense missiles. When all else fails, you can try violent 
evasive maneuvers. 

The SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory Apple M*, Applesoft* BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 

MIDWAY CAMPAIGN 

MIDWAY CAMPAIGN is a computer simulation of the battle for Midway 
Island. Your microcomputer controls a huge force of Japanese ships whose 
objective is to invade and capture Midway Island. If the Japanese can win air 
superiority over Midway, the success of the invasion is virtually guaranteed. 
You command the badly outnumbered and outranged U.S. Navy forces. Your 
only advantage is surprise. 

This SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory, Apple II*, Applesoft* BASIC. 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 
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SfflP DESTROYER 




by Chris Freund 

SHIP DESTROYER is a one 
player S-80 game for 16K Level II 
or 32K disk systems. 

Hidden in your underwater base, 
you get the word. War has broken 
out between the United States and 
Russia. Your orders are to destroy 
all Soviet ships which cross your 
area quad. 

Equipped with the latest 
weapons, you are a formidable 



opponent for anything the Soviets 
can throw your way. You recently 
installed both the Zap and Proton 
beams, which are so powerful that 
you as commander are the only 
one at the base that actually knows 
how to activate the weapons. 

This program is fashioned after 
the popular "Sea Wolf" arcade 
game, and should provide hours of 
enjoyment. 

SHIP DESTROYER: Variable list 
B$(l)-B$(25): Graphic strings. 
D1-D4: Machine locating variables. 



E1-E3: Machine locating variables. 

Y1-Y2: X-axis of torpedos. 

N-Nl: Y-axis of torpedos. 

FL: Level II or Disk flag. 

SC: Score. 

PT: Number of Protons. 

F5: Number of Zaps. 

Y: Firing device position. 

B$: Weapon firing variable. 

X9: Used for activating machine 

routines. 

S: Score value for individual ships 

destroyed. 

I: Time left in game. 



Line 30! Display nesssge i. DIM variable B, 
30 CLS:CL£AR'tOOO:DEFSTFA,B;OEFINTD-X,Z;DDe(25):PRINTe51Z,CH»(2 
3); "SHIP DESTROYER. 
FIEASE HAH WHILE 
VARIABLES ARE SET" 
Lines 34-36: Set up Level U trap. If a=l then Level H 

else Disk Basic. After deternining the basic, 
reset error trap. 

35 ONERRQRGOTO1500i):aiD"T" 

36 ONERRORGOTOO 

Lines 10-290! Initialize nacnine routines in Dl» « D2$. 

Esjilds graphic strings in variables B*(2) 

through B»(27). 
10 POH16553,255!Dl$=CHR*(33)+Cf«*(0)+CHR$(60)+CH»(51)+CHR»(128 
)+Ctt?$(17)+CHRt(l)+CHR»(60)+CHR$(l)+CHR«(63>+CHR»(3)+CHRi(237)+C 
HR*(176)+af»(201) 

50 D2*=Cf«$(l)+CHR*(0)+CHR*(1)+CHRt(33)+CHR$(0)+CHR»(A0)+CHR«(&2 
)+CHR»(128)+CHR$(166)+CHR$(251)+CHR»(128)+CHR$(32)+CHR$(5)+CM<$( 
126)+CHRt(17)+CHRt(203)+CHR*(255)+CHR$(119)+CHR*(35)+CHR*(ll)+CH 
R$(120)+CW<$(177)+CHR$(32)+Ctm(238)+CHR$(201) 
60 F0RX=lTO16*.GOSlB300 :NEXT:DATA16,32,1, 16,32,1,7,32,160,2,32, 
129,5,32,1,1,32,136,130,6,32,130,3,32 

70 Z1=Z!FQRX=1T017:GOSI£300 ;tCXT:DATA16,32, 1,9,32,160,6,32,1,5 
,32,160,32,136,1,32,111,3,32,1,1,32,130,11,32 
80 Zl=3!FORX=lTO16!GOSlf;300 :NEXT;DATA16,32,1,9,32,132,6,32,1,1 
,32,160,136,2,32,129,3,32,132,3,32,1,16,32 
90 Z1=1:FORX=1T011:GOSUB300 :NEXT:DATA16,32,1,8,32,162,7,32,1,5 
,32,132,129,1,32,130,1,32,1,16,32 

IOC Z1=5:FOR'X=1TO17:GOSUEi300 :NEXT:DATA8,32, 111,7,32,1,6,32,160 
,2,32,132,32,111,1,32,1,5,32,130,10,32,1,16,32 
110 Zl=6:FORX=lTO15tGOSUB300 :NEXT:DATA7,32,136,8,32,1,6,32,111 
,132,32,130,136,5,32,1,16,32,1,16,32 

120 Zl=7:FORX=lTO16:GOSUe300 !NEXT!DATA7,32,132,2,32,111,5,32,1 
,6,32,160,130,2,32,129,5,32,1,16,32,1,16,32 
130 Z1=8:FORX=1T011:GOSUB300 !tCXT:DATA6,32,136,2,32,2,160,5,32 
,1,7,32,111,129,7,32,1,16,32,1,16,32 

110 Z1=9:FORX=1T016:GOSI)B300 :NEXT:DATA6,32,132,32,160, 132,32,1 
11,1,32,1,7,32,160,8,32,1,16,32,1,16,32 

150 Zl=10:FORX=lTO16!GOSUe300 :NEXT:DATA5,32,136,2,32,136,111,3 
2,160,1,32,1,16,32,1,8,32,129,7,32,1,16,32 
160 Zl=ir.FORX=lTO16:GOSUe300 :NEXT!DATA5,32,132,2,32,132,160,6 
,32,1,12,32,129,3,32,1,8,32,136,7,32,1,16,32 
170 Z1=12:FORX=1T017:GOSUE300 :NEXT:DATA1,32,160,2,32,136,Z,32, 
111,5,32,1,12,32,136,3,32,1,9,32,111,6,32,1,16,32 
180 Zl=13SFORX=lTO17!GOSUB300 !NEXT!DATA7,32,111,8,32,1,1,32,12 
9,5,32,130,2,32,111,2,32,1,16,32,1,9,32,130,6,32 



190 Z1=11!FORX=1T017:GOSUB300 !NEXT;DATA16,32,1,3,32,136,2,32,1 

30,1,32,132,1,32,1,13,32,130,2,32,1,9,32,136,6,32 

200 Z1=15:FORX=1T017:GOSUB300 :i€XT:DATA16,32,l,3,3Z,111,2,32,l 

32,1,32,160,1,32,1,11,32,132,32,1,9,32,160,6,32 

210 Z1=16:FORX=1T015:GOSUB300 :NEXT;DATA16,32,1,5,32,160, 10,32, 

1,2,32,130,9,32,129,32,160,32,1,16,32 

220 Z1=17:FORX=1T011:GOSUB300 !fCXT:DATA16,32,l, 16,32,1,2,32,13 

2,2,32,129,6,32,136,3,32,1,15,32,129 

230 Z1=18:FORX=1T011!GOSIJB300 :MEXT!DATA16,32,1, 16,32,1,32,160, 

2,32,136,8,32,111,2,32,1,15,32,132 

210 Z1=19:FORX=1T011!GOSUB300 :NEXT;DATA16,3Z,1,16,32,1,1,32,11 

1,11,32,1,32,130,11,32,130,32,111 

250 Z1=ZO:FORX=1T013:GOS11B300 !NEXT:DATA16,32,1, 16,32,1, 16,32,1 

,32,136,2,32,129,8,32,136,2,32 

260 Zl=2i:FaRX=lTO13:GOSUB300 :NEXT:DATA16,32,1, 16,32,1, 16,32,1 

,32,160,2,32,132,8,32,160,2,32 

270 Z1=22:FORX=1T09:GOSUB300 :NEXT:0ATA16,3Z,1,16,32,1, 16,32,1, 

1,32,111,11,32 

280 Z1=23:FORX=1T07:GOSUB300 :NEXT:DATA16,32,1,16,32,1, 16,32,1, 

16,32 

290 GOT0310 

Lines 300-3301 Subroutine for building graphic strings. 

300 READY:IFY=1B(Z1)=B(Z1)+CHR*(26)+STRING$(16,21):GOT0330 

310 ffY<20READZ:B(Zl)=e(Zl)+STR[NG»(Y,Z){GOTO330 

320 B(Zl)=e(Zl)+CHR$(Y) 

330 RETURN 

310 'START REGU.AR PROGRAM HERE 

350 ' 

360 A=CHR$(119)+CHR$(27)+D«*(21):A=A+A+A+A+A+A+A+A+A+A+A+A:A1=C 

HR*(128)+CHR»(27)+Ctff:$(21):Al=Al+Al+Al+Al+Al+Al+Al+Al+Al+Al+Al+A 

1 

370 A(2,l)=STRING»(2,128)+CHR*(176)+a«$(181)+CHR»(190)+STRING*( 

2,18B)+CHR$(189)+CHR*(188)+CHRt(176)+CHR$(26)+STRING$(10,21)+STR 

ING*(11,191)+CHR«(159)+Clft$(135)+CHR$(129) 

380 A(l,l)=CHR»(128)+af>'$(160)+CHR$(176)+CH»(181)+STRING»(5,176 

)+CHR$(188)+CHR$( 189)+CHR*(190)+CHR»( 180)+CHR$(176)+CHR$(26)+STR 

ING$(11,21)+STRING»(11,191)+CH»(113)+CH»(131) 

390 A(3,l)=STRING$(1,176)+CHR$(189)+a«$(188)+CHR$(176) 

100 A(1,2)=STRING»(2,128)+CHR$(160)+CHR»(176)+CH»(190)+CH»(188 

)+CHR$(189)+CH»(180)+STRING»(5,176)+CHR«(lB6)+C«»(176)+C«»m 

1)+CHR$(26)+STRING$(16,21)+CHR$(130)+CHR»(139)+Crt»(175)+STRING» 

(11,191) 

110 A(2,2)=STRINGt(3,128)+CHR»(176)+CHR»(181)+CHR$(188)+aR$(189 

)+CHR$(188)+CHR$(189)+CHR»(180>+CHR«(176)+CHR»(26)+STRIN(»(U,21 

)+CHR$(131)+CHR»(113)+STRING*(ll,191) 
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Ki A('»,1)=STRING»(Z,176)+CHR»(189)+CHR$(176):A(1,2)=CH»(176)+C 

HR«(190)+STRING$(2,176):A(7,1)=STRING$(7,110):A(7,2)=A(7,1) 
130 A(3,2)=CHR$(176)+CHR»(188)+CHR»(190)+STRING*(1,176) 

Lines 110-180! Display instructionsi 



HO a.S;PRINT"SHP DESTROYER 

THE OBJECT OF THIS GAME IS TO DESTROY AS MANY SHIPS AS YOU CAN 

TO GET THE HIGHEST SCORE POSSIBLE. YOU HAVE 3 WEAPONS: 

1. TORPEDO-FIRE USING THE SPACE BAR. 2 CAN BE ON Tl£ SCREEN AT 

ONE TIME" 

150 PRINT"Z. ZAPS-FIRE USING THE <Z> KEY. 
3. PROTON BEW1S-FIRE USING THE <ENTER> KEY. H DESTROYS ANY- 
THING ON THE SCREEN." 

160 PRINT"YOU HAVE 8 ZAPS, AND 3 PROTON BEAMS. YOU GET 2 EXTRA Z 

APS DURINGEONUS HME (5000 PTS OR MORE). YOU GET 1 EXTRA PROTON 

BEAM 

DURING BONUS TIME. YOU CAN ALSO MOVE YOJR FIRING DEVICE. DO THIS 

BY USING THE RESPECTIVE LEFT-RIGHT PSmi KEYS." 

170 PRINTe768,"100 PTS"?A(1,1);:PRINT0788,"2OO PTS";A(2,1);:PRIK' 
Te807,"30fl PTS";A(3,l);:PRINTM21,"10fl PTS";A(1,l);:PRINTe916,"B 

ONUS bar: 700 pts";a(7,i) 

180 INPUT"P1«SS ENTER TO START" ;A9 

Line 190; Initialize tiHe, ♦ of ZAPs, Protons, and score. 

190 CLS:PRINTe832,STRING$(i1,128) ) :FORX=896T0960STEF'6i:PRINreX,S 
TRING»(iS3,191)::NEXTX;C$=CHR»(176)+CHR$(151)+CHR»(151)+CHR»(176) 

+chr$(iii);y=3o:i=30o:printi?ioi5,"zaps 8 ";:sc=o;fi=o:f5=8:pt=3: 

Nl=2JN=2:PRINTei007,"PRTN 3 ";:PRINT0993,"SC(WE "', 

Lines 500-760: This is the tiajor connand loop. It calls up 
It calls other sttroutines as riecessary. 

500 S=RND(1);U=RND(8)-1:IRN0(15)=1S=7 

510 Z=RND(2):FORX=0-(Z=2)x17TO0-(Z=1)x17STEF'-SGN(Z-1.5)xS 

520 ' 

530 PRINTe993,"SC0RE"j:iFl=lPRINTe966,"EONUS TIME";ELSEPRINTe96 

6, "TIME" 5 

510 1=1-1 :PRINTe970+Flx6,i; :IFI=OGOT0800 

Lines 550-570: Input for base novewent. Update position 
accordirigly. 

550 IFPEEK(11100)=32ANDY>20Y=Y-2 
560 FPEEK(11100)=61AM)Y<10Y=Y+2 
570 PRINTe830+Y,STRING»(2,128);C$;STRING$(2,128): 

Lines 580-620: Routine to deternirre if any weapon has 
beeri activated. 

580 B$=INKEY$ 

590 IFB*=" "ANDT=0T=1:N=38:Y1=Yi2+5:GOTO680 

591 IFFL=lTHENGOSUB3000ELSEGOSUeiOOO 

595 X9=USR(0):PRIMTeUx61+X,A$(S,Z);:iFBt="Z"ANDF5>0THEN610 

600 IFB*=" "AM)T1=0T1=1:N1=38:Y2=Yi2+3:GOTO680 

610 IFB»=af»(13)ANDPT>OPT=PT-i:PRINTei011,PTJ!IFFL=OTHENGOT0820 

ELSEGOTO850 

620 in=lANDTl=lTHEN680 

630 GOT0680 

Lines 610-670: Routine for firing ZAP weapon. 

610 Bt="":F5=F5-i:PRINTei019,F5; :FORX1=Y+16130TOY+15362STEP-61:I 

FPEEK(Xl)O128THEN660 

650 HEXTXi:PRINTeY+770,A;;GOTO670 

660 PRINTeY+770 , a; :PRINTeY+770 ,A1 ; :f=i:goto750 



670 PKINTeY+770,Ai; 

680 fti=ini=ni-3:ifni=-iti=o:ni=2 
690 ift=in=n-3:fn=-it=o:n=2 

699 IFFL=lTHENGOSUB3000ELSEGOSUB10fl0 

700 X9=USR(0):PRINTHJx61+X,A»(S,Z)::FE»="Z"ANDF5>OT}CN610 

Lines 710-750: Torpedo HoveHent roL'tine, 
710 F(Tl=l)i((P0INT(Y2,Nl))+(P0INr(Y2,Nl-l))+(P0INT{Y2,Nl-2)))T 

i=o:f=i 

720 F(T=1)x((POINT(Y1,N))+(F'OINT(Y1,N-1))+(POINT(Y1,N-2)))T=0:F 

=1 

730 FTl=i:SET(Y2,Nl) 
710 IFT=i:SET(Yl,N) 
750 IF=lF=fl:GOT0770 
760 NEXTX:GOT0500 

770 PRINTeUx61,CJ«»(30) ; :PRINTeUx61+61,CHR$(30) ;:FK[NT0Ux61+128, 
CHR*(30) ; :FORUU=1TO23:PRINT0Ux61+X-5+(3-S)x3,B(UU) ; :NEXT:PRINTeU 
i61+X,SilflO;:FiaNTeUx61+X+62,"POINTS";:F(M=lTCEOO:NEXTX:PRINT0U 
i61,CH*»(30) ; :PRINTeUx61+61,CHR»(30) ; 

780 SC=SC+Si1OO:F'RINT0998,SC; :FSC>1999ANDFl=0PRINrB980,"H]NUS"; 
790 GOTO500 
Line 800 : Bontis check. 

800 fsc;>1999andfi=othenfi=i:f5=F5+2:pt=pt+i:print0ioi9,F5; :prin 

T81011,PT::i=100:PRINr(?966,"EONUS TIME";:PRINTI?980,STRING$(5,191 

);:goto550 

Lirie 810 : Gane ends here. 

810 print0o,"game over, press enter f(» another game"!:inputa*: 

GOTO190 

Lines 820-830: Machine proton rotitine. 
820 GOSUe2000:FORX=lTO30:X9=USR(0):NEXT:GOSUB100fl:FORX=lTO50:POK 
E(D2+256xD3)+1,RND(63)+128;X9=USR(0):MEXTX:F'OKE(DZ+256i03)+1,128 
:X9=USR(0) 
830 P«INT0311,SxlOO;"F'OINTS",* :FORX=lTO500:NEXT:GOTO78fl 

Lines 850-860: Level n version of lines 820-830. 

850 GtBI«1000:FORX=lTO30:X9=USR(0) :NEXT:GOSUB30fl0:FORX=lTO50:POK 

E(D2+256JiD1)+1,RM)(63)+128:X9=USR(fl):(tXTX:P0KE(D2+256i01)+1,128 

:X9=USR(0) 

860 PRINTe311,S«100;"POINTS"; :forx=ito50o:next:goto780 

Lines 1000-1010 : Routines to find nachine code. 

1000 D1=VARPTR(D1»):D2=PEEK(D1+1):D3=PEEK(D1+2):IFD3>127THEND3=D 
3-256 

1010 DEFUS?0=D2+256«03:R'ETURN 

2000 E1=VARPTR(D2»):E2=PEEK(E1+1);E3=PEEK(E1+2):IFE3>127THENE3=E 

3-256 

2010 DEFUSR0=E2+256iE3:RETURN 

3000 D1=VARF'TR(D1$):D2=PEEK(D1+1):D3=PEEK(D1+2):IFD3>127T>CM)1=D 

3-256;ELSED1=D3 

3010 POKE16526,D2:F'OKE16527,D3:RETUI») 

1000 E1=VARF'TRCD2$) :E2=PEB;(El+l):E3=fte;CEl+2):iFE3>127THENE1=E 

3-256 

1010 F'0KE16526,E2:P0tS16527,E3:RETURN 

Line 15000: Level 11 flag set here. 

15000 FL=i:RESUfe£XT 

20000 'xxKDnnooiumcxxnxianMKauaH 

w SHIP DESTROYER «« 

M warm by chris freund » 

w CONVERTED FOR DISK E^SIC m 
XX BY FWLLIP CASE xx 

xuxxunxixHxixxxxxxxxxxxxxx 

For a more detailed look at the language problems 
encountered in making this program run both on disk 
and cassette, see "take a-part" on page 39. ^j 
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ANGLE CANNON 




by David Bohlke 

Angle Cannon is an Atari program 
requiring at least 8K RAM. 

This real-time action game adds 
a new twist to the idea of 
computer target practice. Actually 
it adds a couple. The first is the 
unique idea of having an angled 
laser cannon. The second and most 
important difference is that you 
are not shooting at the targets 
directly, rather you are shooting at 
a wall in hopes of a reflection 
striking the bull's eye. I know this 
is somewhat tougher than the 
technique that the majority of you 
shooting freaks out there are used 
to, but trust me. 

A note should be made of 
Bohlke's rapid fire routine, that is, 
the ability of the cannon to keep 
firing as long as the space bar is 
held down. This is accomplished 
by zeroing the contents of memory 
location 764 (this is the location 
the ATARI constantly "seeds" 
with a number representing the last 
key hit) right after checking it for 
a 33 (space bar), thus enabling the 
ATARI'S own repeat-key function 
to kick in. Because this function 
works the same when a program is 
running as it does when the 
computer is in the command 
mode, you will notice a familiar 
half second wait between the first 
and following shots. 

Well the rest is self-explanatory. 
All that is needed to say is — have 
fun! By the way, did you ever 
wonder what happened to all those 
bullets whenever the good or bad 
guy missed? 



Line(s) 

10: 

15: 



21-24: 

40: 

100-120: 

200: 

210: 

220: 
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Operation 

Enter into Graphics Mode 5. 

Color the text window 

pink and the screen 

orange. 

Branch to the board 

dt-awing routine. 

Position the targets. 

Instructions. 

Branch to the gun drawing 

routine. 

If space bar is not hit, 

then skip fire routine. 

Clear memory location 



seeded with a number 
representing the last key hit. 

230: Draw shot and ricochet. 

232: Sound of the shot. 

240: If target is hit, then branch 

to the bull's eye routine. 
242: Flash screen background 

to blue. 
244: Erase shot. 
248: Sound of shot leaving 

(being erased). 
249: Flash screen background 

back to orange. 
250: Increase the size of the 

miss bar graph. 
251: If too many misses 

accumulated, branch to the 

end routine. 
252: Branch back to the cannon 

moving loop. 
260: Will branch here if target 

is hit. Changes screen 

background color. 
261: Explosion sound routine. 
262: Increment your number of 



check. 
900-986: Cannon drawing 

subroutine. 
920-934: Target drawing subroutine. 
920-922: Pick new locations for 

targets. 
930-934: Draw targets. 

VARIABLE LISTING 



Variable 



Function 



H: 
I: 
L: 
MS: 

N: 
P: 



T: 
X: 



Used to calculate whether or 
not a target has been hit. 

Number of hits. 

Misc. loops. 

Position of top target. 

Number of misses. 

Position of bottom target. 

Shot proficiency and contents 
of location 764 (used to 
determine last key hit). 

Length of time spent. 

Position of cannon. 



265: 


hits. Branch to target 
drawing routine. 
Increase the size of the hit 


S REH DM€ BGHLKE 
6REH MGLICMMN 




bar graph. 

Flash screen background 


11 GMPHIES SiSETCOiR t,6,7 


275: 


15 SETmnR 2,1,7:SETC0LiK 1,15,8 




back to orange. 


21 COUR atPLDT 39,i;DMim) 79,1 


280: 


Erase shot and ricochet. 


21 PLOT 39,lJPUn 39,2 


285: 


Branch to the target 


22 fUDT 16,39:PUIT ^,38 




drawing routine. 


21 PLOT 2,39;PLDT 2,38 


300: 


Turn off the sound. 


31 x»ii:o:i;n5=i:h=i:t=i 


400: 


Plot then cannon. Resume 


1IG0SUB92I 




cannon movement. 


IM PRDIT TRESB SPMZ BW to tire." 


405: 


Increase the size of the 


HI PIONT 'naitDI bar indicates tine re 




time spent bar graph. 


nainins," 


410: 


If cannon at left or right 


121 PRDTT "KD is t HITS, and MIF is 




boundry, reverse direction 


1 nisses," 




and add to the time spent. 


2N con UGOSUB 911 


420: 


If time has run out. 


211 P=«EX<7«1)JIF P033 TIB 3M 




branch to the end routine. 


221 POKE 7M,I 


450: 


Resume drawing the gun 


231 COLOR 2:FL0T X.SetOMMTD X+37,1:DR 




and checking for a shot. 


«m)79,13-X 


800: 


Display number of hits 


232 FOR I»3I TO 1«:S01M> l,I,ll,U:iCX 




and misses accumulated. 


TI 


805: 


Compute player's shot 


2« 012-X:F (ABS(C-N><2) or («S(C-L 




percentage. 


)<2)THD(2M 


810: 


Grade player's 


212 SETCOLOR 1,7,9 




performance. 


211 COLOR i:plot X,38:omHTD x^37,i:dr 


820: 


Another game? 


<»m)79,13-X 


830: 


Check memory location 


218 FOR 1=1 TO 2i:sailD e,»l,l»,7JICXT 




needed with last key hit 


I 




for a RETURN. 


219 SETCOLDR 1,15,8 


832: 


Create random sound 


250 NS^^fi+liCOLOR liFOR !::€ TO IBiPLOT 




while waiting for answer. 


HS,r.MEXT I 


834: 


Branch bank to memory 
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251 F NS>70 THEN 800 

252 GOTO 300 

2M SETCOLOR 1,3,8 

261 FOR 1=50 TO 120:SOUM) 0,I,12,11:NE 
XTI 

262 tHHlSCOJK ISGOSUB 930 

265 COLOR 3iF0R 1=3 TO 6:PL0T H.ItNEXT 
I 

275 SETCOLOR 1,15,8 
280 COLOR ItPLOT X,38:DRAHT0 X+37,1:DR 
flHTO 79,«-X 
285 COLOR 3:G0SUB 920 
300 SOUW 0,0,0,0 
m COLOR ISGOGUB 9oo:x=x^ 
105 COLOR 2:fi0T t,o:plot T,1 

110 IF (X<5) OR (X>10) THEN DH)!T=T+2 

:F0R 1=1 TO 2%'.SaM) 0,200,10,7:IEXT i 

120 F T>38 T)CN 800 

150 GOTO 200 

800 PRINT " HnS "{H}" MISSES "} 

HS 

805 P=«/(H*«S)i100:P»INT(P) 

810 PRINT SPRINT "SHOT PROFICIEHCY "5P 

820 PRIHT "PRESS RETURN for another ga 
ne? "J 

830 P=«B<(761):F P=12 THEN RUN 
832 SCUM) 0,RM)(l)i250,10,7 

831 GOTO 830 

900 PLOT X-l,3BJDWIinO X+3,31 
902 PLOT X-l,39!0RflHTO X+1,39 
9M PLOT Xil,3B:DRAHTD X-M,35 
906 RETURN 

920 lt=79:N«IMT(R»(l)i35)*2 
922 K=79JL«IMT(R»(l)i35)*2 

930 PLOT H,H:purT n-l,H+l 

932 PLOT h,ph2:pldt k,l:plot K-1,L+1 

931 PLOT K,L+2:RETURH ^ 



Armchair quarterbacks 
may never be the same . . 

Hi-Res Football 

On-Line Systems 




15€JHPIRDSID€ 



6 South St .Miltord. NH 03065 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -gOO-2S«-1 790 



Exciting ^^ 

Entertaining 
— Software for 
the Apple II 
and Apple II 
Plus! ■ 




f" MML* 



_Sj Quality Software 



, [as 

TSeiHORfSSIDe 

6 SOLitn S! Mil'O'd NH 0305": 603.6n-5iia 
TOLL FREE OUT-OF-STATE 1 -eOO-ZSa-l 790 



ASTEROIDS 
IN SPACE 



If you liked "Invaders. " you'll 
love ASTEROIDS IN SPACE by 
Bruce Wallace. Your space ship 
IS traveling in the middle of a 
shower of asteroids. Blast the 
asteroids with laser.s. but beware 

big asteroids fragment into 
smaller asteroids' The Apple 
game paddles allow you to rotate 
your space ship, fire its laser 
gun, and give it thrust to propel 
It through endless space. From 
time to lime you will encounter 
an alien space ship whose 
mission is to destroy you, so 
you'd better destroy it first! High 
resolution graphics and sound 
effects add to the arcade-like 
excitement that this program 
generates. Runs on any Apple II 
with at least 32K and one disk 
drive. On diskette ■ $19.95 
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Nine Gaines 
for Pre-School 
Children 

by George Blank 

Even pre-schoolers deserve a 
shot at the wonders of 
microcomputing. With these nine 
games, they not only will have a 
chance to tickle the keyboard, but 
learn letters and numbers to boot. 
And if that isn't enough, they'll 
have a good time doing so. What 
more could a parent ask for? Here 
are education and entertainment 
for the very young in a single 
package! 

Level II cassette $9.95 




TS€dHPRDSID€ 

6 South St .MiHord. NH 030SS (603)673-5144 
TOLL FREE OUT-OF-STATE 1-aa»2S$-17W 




INTERACTIVE 
FICTION 

Step into a new 

dimension 

in 

literature. 

NEW! From 
Adventure International 




Traditionally, literature has 
been a oneway medium. The 
information flow was from the novel 
to the reader, period. Interactive 
Fiction changes this by permitting 
the reader to participate in the story 
itself. 

The computer sets the scene 
with a fictional situation, which you 
read from the terminal. Then you 
become a character in the story: When it's your 
turn to speak, you type in your response. The dialogue 
of the other characters, and even the plot, will depend on 
what you say. 

Robert Lafore, writer, columnist, and programmer, has 
created a scries of works in Interactive Fiction. Each is available 
on a 5'/," diskette for use on a TRS-80* Level-II with at least 32K 
memory and one disk drive. 

/ 

Six Mcro Stories offers a good introduction to Interactive 
Fiction. Six very short stories involve you, the reader, in a variety of 
situations; You are an American spy in Hitler's Third Rckrh. the pilot of 
a doomed 747, and more. 

Local Can for Deatk is a detective story in the style of Lord Peter 
Whimsey. Considerably more challenging than the above program 
this one will put your analytic skills (and social savoir-faire) to the test. 

Two Heads of tke Coia is a psychologkal mystery set in the 
London of Sherlock Holmes. Most challenging of all, this program will 
tax your observational skills and, above all, your imaginatkjn. 

On TRS80 Disk. Requires User to have a copy of TRSDOS 2.2 or 2.3. 

Six Micro Stories J14 95 

Local Call For Death .' . $19^95 

Two Heads of the Coin $19.95 




PSM 





TS€JHPRDSID€ 

6 South St.Mllford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800^258-1790 
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ANIMATION 



by Thomas G. Marshall 

ANIMATION is an ATARI 
program requiring at least 8K 
Ram. 

Normally when one sets out to 
write a program involving three- 
dimensional graphics, one flnds 
out that by no means will speed be 
one of the greater assets. The 
reason for this becomes quite 
obvious when you take into 
account that there is a third axis to 
worry about. (By use of the PLOT 
command, the ATARI is able to 
work simply with two axes. 
Introducing a third injects a good 
deal more complexity into the 
matter). When this saddening 
drawback (limitation) is realized, a 
different route must be taken. 

Instead of laboriously 
calculating the lines' coordinates 
along the X,Y, and Z axes 
(position horizontally, vertically, 
and in spatial perspective), this 
program focuses on the endpoints 
of each line and takes advantage 
of the Atari's DRAWTO function. 
The method provides for a quickly 
plotted design without losing three- 
dimensional appearance. The best 
way to see this is simply to run the 
program. 

The way the arrays are 
structured may seem confusing at 
first, but it is a really simple 
concept. The idea to keep in mind 
is that the computer has to 
remember what has been drawn 
where — hence the need of the 
arrays. 

"How does the computer know 
when to begin erasing?" 

I'm glad you asked that. To 
start off with, we must choose the 
number of lines we want to be 
displayed on the screen at any one 
time — let's say 30. Next we must 
take a close look at what the main 
loop accomplishes. 

The program passes through the 
locations in the arrays by 
incrementing the variable A — 
which stores the current line drawn 
in the current location in the array 
— and erasing the variable R, 
which signifies the line stored one 
location ahead in the array. When 
the passing through is completed, 
i.e., when A has been incremented 
to a full 30, A then returns to zero 
so that the process can start over 



again at location 0. 

Since there is nothing to erase 
during the first pass (the contents 
were set to zero during progran. 
initialization), this is the time when 
the first 30 lines are displayed. 
Once the 31st line is drawn, 
however, the second pass begins. 
This time there is data at location 
R, causing the first line that was 
drawn on the screen to be erased. 
As the program proceeds, it writes 
over the location that was used to 
store the first line (now considered 
dead, gone, and useless) with the 
coordinates of the 32nd line — 
thus no array space is wasted. This 
method of storage can be 
visualized as a worm; once grown 
to a desired length (variable W), it 
eats its tail, with its head taking 
the place of the very last segment. 
While it does look quite nice in 
graphics 8 , a choice had to be 
made for the magazine and it was 
felt that double the resolution was 
a poor exchange for multiple 
colors. For you more adventurous 
types, conversion changes are listed 
below. 

DELETE lines 80, 82, and 84. 
RETYPE lines 40, 150, and 170 so 
they read: 

40 GRAPHICS 8 + 16: A = -1 

150 COLOR 0:PLOT 
Xl(R):DRAWTO X2(R), 
Y2(R):COLOR 1 

170 NEXT COUNTER:GOTO 
60 

CHANGE the number 159 to 319 
in lines 9000 and 9002 

and 
CHANGE THE NUMBER 95 to 
191 in lines 9004 and 9006 
INSERT 

45 COLOR 1 
Interesting results can be 
obtained by changing the 
numerical constants in the 
progr2un. For instance, in lines 
60-70, changing the 1.5 to a higher 
number will cause the lines on the 
screen to spread out more. 
Another twist is to change the 
length of the loop in line 90, which 
will cause the length of each turn 
to change. Now it's up to you to 
explore this new world of 
computer art. 

LINE# FUNCTION 

25: Input the number of lines 
to be displayed before 
erasing. 
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27: Dimension the arrays 
containing the X and Y 
coordinates of the two 
end-points of each line. 

30: Zero the contents of the 
four arrays. 

40: Put the computer into full- 
screen graphics seven. 

50: Initialize endpoint 

coordinates for first line 
plotted. 

60-70: Choose a random X and Y 
increment for first and 
second endpoints. 

80: Choose a random color 
(other than black). 

82-84: If the color chosen is the 
same as the color last used 
then choose another. This 
insures that no two 
consecutive turns will be 
the same color. 

90: Give turn a random length 
between 10 and 19. 

100: Increment A. A is used to 
point at a specific location 
intheXl, Yl,X2and Y2 
arrays. (See variable 
listing). 

102-115: Assign values of the 

current endpoints equal to 
the values of the previous 
endpoint plus the random 
increment assigned to it. 

117: Branch to the in/ out of 
bounds routine. 

120: Draw line between 
endpoints. 

130-150: Erase line one location 

ahead in array by plotting 
over it with the 
background color (color 
0). 

160: If array pointer (Variable 
A) is at the last location in 
array then start A over the 
beginning. 

170: Continue calculating and 
plotting this turn. At the 
end of which, set 
OLDCOLR equal to the 
value of Coir, branch back 
to the beginning and 
choose a new random 
direction. 

9000- Routine used to check to 

9008: see if the X and Y 
coordinates for both 
endpoints are within 
bounds of Graphics 7 (0 
<= x<= 159andO <= Y 
= 95). If they are within 

continued on page 72 
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Three from Potkin 



Wargamer's delight 





1). Kriegspiel II 

A much improved two-player version 
of the original. Kriegspiel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 



2). Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargarpe in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 





3). Warpath 

The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopyers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
^shelter and obstacles. Favorite 
scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 



CALL TOLL-FREE 
1-800-258-1790 

In NH call 673-5144 





m 




recordings 



AMP RECORDING 

AND 

DUPLICATING SERVICE 

609 667-1667 

307 West Main Street 
Maple Shade, NJ 08052 



For Digital 
needs: 

* AMP "Data-sette" blank 
cassettes 

* Digital cassette 
duplication 

* Storage Boxes 

* Labels - Custom 
printing & blank 



For AUDIO 

needs: 

* On-location music 
recording 

* Record Album 
production 

* Stereo and Spoken 
Word cassette 

duplication 

* Blank cassette and 
supplies 



All cassette work at 
AMP R. & D. is custom 
work to fit your needs. 

Call or write to "Jerry" 
for more information. 
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FRpmWi:! 



T-SHORT lets you type Level 
II and/or Disk BASIC more 
quickly and accurately than ever 
before. You are provided with 
31 programming statement keys 
(by means of the Shift control) 
which permit you to enter com- 
mands with a single keystroke. 
KUSTOM* Key allows you to 
enter any command up to 64 
characters at a single keystroke, 
and can be changed at anytime. 

$9.95 




TS€d-iP@ID€ 

6 South Si .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 7M 
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BASIC COMPILER 

FROM ^^iiCnpSOfT 

Now you can get fast program execution times and more without 
giving up BASIC. Microsoft BASIC Compiler is a powerful tool for 
BASIC programming XhaX makes programs run an average of 3-10 
times faster than programs written in Disk BASIC. 

The compiler produces highly optimized, Z-80 machine code 
that is directly executed by your TRS-80™. 

You simply type in and debug your program as usual, using your 
BASIC interpreter. Then you enter a single command line, telling 
the compiler what to compile and what options to use. 

BASIC Compiler takes it from there, producing optimized 
machine code as a relocatable binary file. This file called the object 
program, is then loaded and linked with BASIC'S runtime library 
using a utility program called LINK-80. Both the runtime library 
and LINK-80 are included in the BASIC Compiler package. 

When you run your compiled program, you'll be amazed at the 
difference! The increase will vary, depending on the program, but 
can be as much as 30 times the execution speed of your interpreted 
program if you make maximum use of integer operations. 

And you can save your compiled program on disk so you don't 
have to recompile it every time. 

Microsoft BASIC Compiler also adds features to the already 
powerful disk BASIC including: 

• WHILE/WEND Statement. 

• CALL Statement. 

• Long variable names. 

• Double precision transcendental functions. SIN, COS, TAN, 
ATN, LOG, EXP, SQR are supported as an exclusive feature of 
BASIC Compiler. 

Powerful BASIC language features you can use within Disk 
BASIC Include: 

• PRINT USING for formatted output. Includes asterisk fill, 
floating dollar sign, scientific notation, trailing sign and comma 
insertion. 

• Four variable types: Integer, String, Single Precision Floating 
Point (7 digits) and Double Precision Floating Point (16-digits). 

• Trace facilities (TRON/TROFF). 

• Error trapping. 

• Direct access to CPU I/O ports with INP and OUT. 

• Read or write any memory location using PEEK/POKE. 

• Matrices with up to 60 dimensions. 
Nested IF/THEN/ELSE. 

Boolean operators OR, AND. NOT, XOR, EQV, IMP. 
Complete file manipulation statements: OPEN, CLOSE, GET, 



PUT, KILL, NAME. 



System Requirements 

BASIC Compiler will operate on a Radio Shack Model I TRS-80™ 
with one disk and 48K RAM. Programs compiled with the BASIC 
Compiler may be stored on disk $195.00 + $3.00 




TSeHPRDSIIX 



6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) 
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Using Those Hidden 



Commands 



by Phillip Case 

The S-80 is indeed an interesting 
machine. In its basic form, the 
Level II 16K, it is a powerful 
computer with vast capabilities. 
However, with the addition of a 
disk system, the computer reaches 
out and expands to use new 
commands which are not part of 
its basic command set. This article 
will explain how Level II is 
designed to accomplish this task 
and how the "RESERVED" 
commands in Disk BASIC can be 
used in Level II for our own 
purposes. 

In the back of the Level II user's 
manual, there is a list of reserved 
words that cannot be used as 
variable names. At first glance, 
one realizes that the list is made up 
mainly of Level II commands. But 
there are some commands which 
will seem unfamiliar to the Level II 
programmer. Commands such as 
NAME, GET, CMD, and TIMES 
are not supported in Level II. 
When these commands are used, 
the computer responds with a ?L3 
ERROR. This is because the Level 
II is designed to be upwardly 
compatible to a disk system. 

Actually, when the offending 
command is entered, the computer 
does try to execute it. 

However, when there is no disk 
system attached, the pointers used 
for these commands instruct the 
computer to jump to the L3 
ERROR routine. 

To use these commands for your 
own machine language routines, 
just alter these pointers to tell the 
computer to jump to your routine 
rather than the error routine. From 
that point on, the use of that 
command will activate your 
routine. 

Here's how it works. When the 
computer is turned on, it checks to 
see if there is a disk system hooked 
up. If there is, it then boots the 
Disk Operating System or DOS. If 
it finds no such system present, it 
then initializes all the commands 
by setting pointers instructing the 
computer where to jump when that 
particular command is present. 
Where it jumps to is the L3 
ERROR message. 

The finding of these vectors or 
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pointers was for me the hardest 
part of this entire process. The 
answer was to be found in 
PATHWAYS THRU THE ROM, 

in the map of Level II BASIC. For 
the purposes of this article, we will 
use the NAME command to show 
how to interupt Level II. 

If we look at memory locations 
418EH - 4190H (That's 16782 thru 
16784 for those of you who don't 
want to convert it yourselves) we 
find that the contents to be the 
following values, 195, 45, and 1. 

If we convert 195 to Hex, we get 
the value of C3. The Hex code C3 
is' the machine language Jump 
command. This means we are 
going to jump to the memory 
location indicated by the next two 
bytes. The next two bytes were 45 
and 1 . Because the computer 
understands Hex, not decimal, we 
must use Hex to figure the address 
pointed to. 

The S-80 uses a Least Significant 
Byte/Most Significant Byte 
(LSB/MSB) format for storing 
address locations. This means that 
the LSB in the number is stored in 
the first byte of the pointer 
address, followed by the MSB. 
What this means to us is that the 
first number (45) is less significant 
than the second number (1). 

If we use the formula 
(MSB*256 + LSB) wecan 
determine where indeed we will go 
when hitting this jump. Therefore, 
(1*256 + 45) = 301 in decimal. The 
address 301 represents the ?L3 
ERROR routine. You can test this 
by typing "SYSTEM", "/301". 
You are forcing the computer to 
jump to location 301 . 

Now all we need to do is 
determine the address of our 
routine. Let's say we put a 
machine routine at location 7000H 
(28672). We now need to figure 
how to convert our address into 
the (LSB/MSB) format of the 
S-80. If we know the address in 
Hex, simply reverse the number. 
For example, address 7000H would 
become 00 and 70. 

To convert a decimal number, 
we first have to divide the address 
by 256. The integer portion of this 
number becomes the MSB. The 
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LSB is found by subtracting the 
MSB*256 from the target address. 
For example: 

MSB = 112 = INT(28672/256), 
LSB = = 28672-(MSB*256). Now 
that we've determined our decimal 
values, we then have to convert 
them to Hex. The LSB, in this case 
0, is easy to convert: decimal = 
HEX. The MSB 112 converts 
into 70 Hex. Hence, the address is 
7000H. 

Now that we know our 
addresses, we then POKE them 
into the proper locations. For the 
NAME command, the LSB goes 
into 16783, so the command is 
POKE 16783,0. The MSB goes into 
16784, so we POKE 16784, 112. 
After these POKEs have been 
made, whenever the computer 
finds the NAME command, it will 
jump to location lOOOH, rather 
than generate an L3 ERROR 
message. 

Besides the NAME command 
other Disk BASIC commands are 
listed in the table below. 

Now that you've learned to call 
machine routines by using Disk 
BASIC pointers, you can use these 
commands in your Level II 
programs. However, just as in a 
USR call, be sure to return to 
BASIC with a RET command. 

Also, the HL register must be 
preserved to return to BASIC. This 
can be done several ways: 
POPping the register to the stack 
will do, or you can EXX the 
register sets at the beginning of the 
routine and again at the end. The 
easiest way, however, is to leave 
the HL alone. 

FIELD 

GET 

PUT 

CLOSE 

LOAD 

MERGE 

NAME 

KILL 

& 

LSET 

RSET 

INSTR 

SAVE-, 

LINE^ 



4152 


CVI 


417C 


4155 


FN 


417F 


4158 


CVS 


4182 


415B 


DEF 


4185 


415E 


CVD 


4188 


4161 


EOF 


418B 


4164 


LOC 


418E 


4167 


LOF 


4191 


416A 


MKI$ 


4194 


416D 


,MKS$ 


4197 


4170 


MKD$ 


419A 


4173 


CMD 


419D 


4176 


TIMES 


41 AO 


4179 
Until 


OPEN 
next month: 


41A3 
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FORTRAN Compiler 
LINK-80 Linking Loader 
EDIT-80 Text Editor 
FORUB Runtime Library 
Complete documentation 



FORTRAN 
PACKAGE 



For TRS-80 users who want FORTRAN programming capability 

Because FORTRAN is a popular language that has been around a long time, and because 
Microsoft's TRS-80"FORTRAN is an ANSI Standard FORTRAN, users will instantly have access to 
the vast number of applications programs already written in FORTRAN. After all, FORTRAN is the 
standard language used throughout the industry for scientific, mathematical, engineering, 
statistical and modeling programs. FORTRAN is probably the answer if Level II BASIC has 
presented any limitations for your applications. For instance; it's easy to interface directly to 
machine language subroutines , double precision scientific functions are included, FORTRAN can 
support any I/O device, and because it's a compiler, FORTRAN is faster (3-10 times faster!) than 
BASIC. Floating point and I/O subroutines from FORTRAN'S library may be incorporated in 
subroutines, plus users can create their own library of the subroutines used most often. Using the 
text editor and linking loader, data files and FORTRAN files can be created and edited, loaded 
and linked together— that means much more extensive use of the TRS-80'"disk hardware. 

TheTRS-80'TORTRAN Package is fully compatible with TRSDOS. The TRS-80" FORTRAN 
compiler can compile approximately 1200 lines per minute in a single pass and requires a 
minimum 32K TRS-80'"disk system. The compiler generates a fully symbolic listing of the machine 
language that is generated— a great way to learn assembly code! At the end of the listing, the 
compiler produces an error summary and tables showing the addresses assigned to labels, 
variables and constants $95.00 + $2.50 



MACRO-80 Macro Assembler 
LINK-80 Linking Loader 
EDIT-80 Text Editor 
CREF-80 Cross Reference Facility 
Complete documentation 



ASSEMBLY 

LANGUAGE 

PACKAGE 



For TRS-80 users who want assembly language programming capability 

The TRS-80 Assembly Language Development System from Microsoft is the perfect, low-cost 
package to help you get started with assembly language programming. 

The macro assembler accepts Z-80 op-codes and supports a complete Intel standard macro 
facility including IRP, IRPC, REPEAT, local variables and EXITM $95.00 -I- $2.50 

SPECIAL PRICE 

Buy both and save $15.00 
Regular price for both $190.00 
Combination price $175.00 -i-$5.00 
SAVE $15.00 

The SaitM^te Exchange 

6 South St., Milford, N.H. 03055 

TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) 
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Wish you were a better typist, 
but don't want to take (or pay for) 
a class? Teach yourself to type 
with the aid of your micro- 
computer. With TYPING 
TUTOR you will be quizzed and 
graded, but you set the pace at 
which you learn. TYPING 
TUTOR is a set of programs that 
lets you become as good a typist as 
you wish, allowing you to advance 
from one level to the next when 
you feel comfortable with your 
skills. 

Let "hunt and peck" slip into 
the past, teach yourself speed and 
accuracy on the keyboard with 
TYPING TUTOR. 

Level II, I6K $19.95 




T5€JHPi^lD€ 

6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 






breeze 
compuliA9 

A Merlin for 

Scrambled 

Disks 



If you thought SuperZap was something, 
wait until you get your hands on SUPER 
UTILITY! Possibly the most powerful 
utility program on the market for your 
S-80, SUPER UTILITY permits you to: 



Automatically repairs a scrambled 

directory by fixing both HIT and GAT 

tables; 

Format a disk without erasing data 

files; 

Format or backup virtually any disk 

except itself; 

Recover killed files; 

Purge a disk; 

Execute a complete Directory 

check; 

Repair bootstrap function; 

Totally ROM independent; 

Plus other features too numerous 

to mention. 

16KDisk $49.95 



VISA 



TSeiHRRDSIIX 

6 South St., Milford, N.H. 03055 
ORDER TOLL FREE: 1-800-258-1790 
(in NH call 673-5144) 



70 



SoftSide JANUARY, 1981 



Editing Supergraphics!!!!! 




by Phillip Case 

By now, most of you have seen 
those funny Hstings which appears 
to be garbage. Programs like 
"Android Nim," "Bee Wary," 
and "Star Scout" all look like bad 
loads when listed. This is due the 
use of a process known as 
'packing' the graphics. 

The reason these programs have 
their graphics strings packed this 
way is to save memory. By packing 
your strings in this memory, you 
reduce the amount of 'overhead' 
memory needed by about two- 
thirds. 

To create supergraphics, one 
simply changes the value of the 
characters between the quotes in a 
line to read as graphics codes. For 
example: 10 A$ = "*". To change 
this line, one would simply POKE 
the memory location that contains 
the "*" with the value of the 



graphics character needed. In this 
case let's use a full graphics block 
or CHR$(191). To change line 10 
to print a CHR$(191), we find the 
address which contains the "*" 
and POKE address, 191. 

Most of you are probably 
already familiar with this process, 
so 1 won't say anything more 
about it except that disk users have 
a real advantage in the use of 
DEBUG. 

The interesting thing about 
supergraphics is the method in 
which they work. The S-80 
converts all commands into one- 
byte tokens to save memory. It 
just happens that the command 
tokens are the same ASCII values 
as the graphics characters. That's 
why a supergraphics line contains 
only command words. 

Now for the Heavy Stuff, stay 
close. We've all been told that 
supergraphics lines cannot be 
edited. This is because the 



computer reads all the contents 
between quotes as regular 
character information rather than 
tokens. If you're like me, you find 
you need to edit the line that 
you've slaved so hard over to 
convert to tokens. 

There is a little trick that will 
permit you to edit your 
supergraphics without losing your 
tokens. If, while you're editing the 
line, you (C)hange the first quote 
in the line to an asterisk, the line 
will be retokenized. Then, when 
done editing, POKE the asterisk 
back to a quote and Voila!! The 
Une is converted back to 
supergraphics after editing. 

This little trick should prove 
useful whenever you find you need 
more characters in a line which is 
already packed. For those of you 
with a disk system, I suggest doing 
all the aforementioned with 
DEBUG, the monitor which is a 
part of DOS. ^ 



i^ 





BASF 

We don't recommend that you sit on your new BASF disks, but we're packaging them so 
that they could take that kind of punishment. 

When you buy our 5Vt", 100% certified, single sided, single or double density disks, you will 
receive them in a handsome tan hard plastic library case at no extra cost. Each box contains 
ten disks of the highest quality, from the people that all but Invented magnetic recording 
media. 

The hard plastic library case ensures that your disks will remain well protected from the 
ravages of time, weather, children, and pets. No more flimsy cardboard boxes that fall apart 
within a few weeks! 

Box of 10, 5V*" Single Density $34.95 

Box of 10, 5V*" Double Density $44.95 

Box of 10, 8" Double Density $49.95 





TS€:IHPIRDSID€ 



6 South St.Milford.NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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by Lance Micklus 
A utility program that greatly ex- 
tends the l^eyboard video and printer 
subroutines in your Level II ROM! 
KVP runs under DOS or Level II BASIC. 
It is relocatable under your control, 
and so may be used simultaneously 
with other machine language programs. 

HERE ARE SOME OF THE THINGS 
YOU'LL BE ABLE TO DO; 

• Use an external keyboard 

or any other serial input device in 
place of the S-80 keyboard. 

• Practically eliminate keyboard 
bounce. The amount of debouncing 
is user-adjustable. 

• Display upper and lower case let- 
ters on your video monitor Screen. 

• Simulate a Radio Shack Screen 
Printer using an ordinary printer. 

• Use most any ASCII Serial Printer 
such as Teletype 33 or Spinterm. 

• Exchange Programs Written in 
BASIC with other computers from the 
Sorcerer to the IBM 370 (and S-80s, 
tool). 

At least 16K memory required. Self- 
relocating for 16K, 32K, or 4fiK 
systems. 

Tape $14.95 

Disk $19.95 

fi=.i. .....V 

TS€:IHPRDSID€ 

6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(in NH call 673-5144) 



continued from page 65 

bounds, simply branch 
back to exit point in loop. 
If not, reflect 
coresponding endpoint, 
that is, negate the 
appropriate X or Y 
increment. 



VARIABLE FUNCTION 



Current position (to be 
plotted) in the arrays. 



Loop going from 1 to the 
random length of each 
turn. 
COLR: A random color other than 
black (background) 



Color used on last turn. 
Used to insure that no two 
consecutive turns are the 
same color. 

R: Following position (to be 

erased) in arrays. 

Rl, R2: Random increment for X 
and Y values of first 
endpoint. (Forms a 
random direction). 

R3, R4: Random increment for X 
and Y values of second 
endpoint. (Also forms a 
random direction). 

V: Preceding position in 

arrays. Used to determine 
value of current position. 

W: Number of lines to be 
plotted before erasing 
starts. 



j^^^^^SI 



X1(W), 
Y1(W): 

X2(W). 
Y2(W): 



X and Y coordinates for 
the first endpoint. 

X and Y coordinates for 
the second endpoint. 



10 REM — X WOHATION — 

28 REH by: TIOMS C. HARSHALL 

22 REN 

25 PRIMT "BPUT * OF LDCSBTUT H 

27 DIM )U<H),X2(H),Y1(H),Y2(H) 

3(1 FOR 1=1 TO H:)a<I)=0:X2(I)=€:Yl(I)= 

8:y2(I)=o:ig(t i 

n GRAPHICS 7*U',(^1 

50 ia(H)=a):](2(U)=ioo:Yi(H)Ho:YZ(H)=3 



60 Rl=l.Si(IMT(7WN)(0))-3)!R2=1.5i(IN 

T(7«R»(0))-3) 

70 R3:4.5i(D(T(7iRM>(0))-3):R4=1.5i(IN 

T<7WND(0))-3) 

80 I:XR=INT(3«M)(0))+1 
82 F OLDCaJtCOJi DEN 80 

81 COLOR CflUt 
88 REH 



91 rat coiinER=i to int(iimm>(0))+io 

100 A=Atl 

102 IF A=0 THEN V^tGOTO 101 

183 V=A-1 

m xi<a)=xi(V):)(2(A)=X2(V):yi(A)=yi(v 

):Y2(A)=Y2(V) 

no Xl(A)=Xl(A)4fii:X2(A)=l(2(A)4K2 

115 Y1(A)=Y1(A)«3:Y2(A)=Y2(A)iW 

117 GOTO 9000 

120 PLOT X1(A),Y1(A):DRMTD X2<A),Y2(A 

) 

138 F A=H TIEN R^OSGOTO 150 

110 R=Atl 

158 COLOR 0:FLOT Xi(R),Yl(R):DRMm] X2 

(R),Y2(R):COL0R COLR 

160 F A=M THEN A=-l 

170 NEXT COUKTERtGLDCOJ^COLRSGOTD 60 

5000 REH 

5002 REH 

9080 F X1(A)>159 OR XKAXO THEN Rl^ 

Ri:Xl(A)=Xl(A)4{tl 

9802 F X2(A)>1S9 OR X2(A)<0 T>CN R2=- 

R2:X2(A)=X2(A)4R2 

9804 F Y1(A)>95 OR YKAXfl THEN R3=-R 

3:Y1(A)=Y1<A)«3 

9006 F Y2(A)>95 OR Y2<A)<0 THEN R4H? 

1JY2(A)=Y2(A)-HW ^rj 

9008 GOTO 120 (^^l 



PROGRAMMING HINTS 

This program demonstrates a 
very interesting feature of the Atari 
computer. It will allow you to 
select the character size used by the 
computer. The program will 
present three options. The first will 
put the computer into the normal 
character size. The other two will 
alter the size of the characters 
used, making them larger and 
turning everything pink and orange 
to top it off! When in these larger 
modes, the Atari will function 
normally in all other respects, 
programs can be written and run, 
editing can be done, etc. 

This alteration produces two 
interesting effects. First, reverse 
video, and hence, the cursor, will 
not be displayed as reverse video, 
but rather as green characters. And 
second, the number of lines on the 
screen will be more than will fit on 
the monitor. This means you will 
only see the top portion of the 
screen displayed. 



le POKE 83, 19 ? CH»<125>;"(8> NORMflL" ? 

"(1) WIDE OR" ? "(2) EXTRA WIDE?"; 
28 aOSE #1 OPEN »l,4-e,"K" 
3B GET »l,W;l*=«-48 IF W=e Tf€N GRflPHICS 
e=POKE 82,2 POKE 83,39 EM) 
48 IF WCl OR U,^2 THEN 39 
56 GRAPHICS 8 POKE ?12,82^P0KE 82,1 
68 B=PEEK(568>+256JPEEK(561 H4 
78 POKE B-l,69rtJ 

88 FOR I=e+2 TO B+23 POKE I,5+W NEXT I 
98 POKE I,65^P0KE B+I+2,PEEK(K8) POKE B 
+I+3,PEEK(:56n 
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by Bruce Chalmers 

Stumped by statistics? Here's the 

program for you I 

Written by a statistician but designed 

for use In the real world. Helps you 

create files; examine and edit data; 

and understand descriptive statistics. 

Sophisticated enough for the 

working statistician. This powerful 

interactive statistical package 

features complete error diagnostic, 

missing value specification, and 

sophisticated graphics. 

S-80 Disk 32K and 48K versions on 
one disk $29.95 




TS^JHI^IRDSIIX 



6 South St .Miltord. NH 03055 (603)673-5144 
TOLL FREE OUTOF-STATE 1400-2S«-179a 




OPTIONS 
MONITOR 

by W. J. Kutlever 

THE INVESTOR'S KEY TO 
OPTIONS MARKETING!!! 

Make informed trading 
decisions in minutes with 
this easy to use package. 
WHO: Investors, Option 
Writers or Purchasers use 
this program. 

WHAT: Analyzes option 
prices and responds to cur- 
rent market prices as soon 
as you receive them. 
WHY: Assesses the value 
of a given option. Monitors 
the value of your in- 
vestments. Helps you 
decide when to purchase 
or to close out your op- 
tions. 
HOW: Use S-80 Disk. 

Next to your broker this 
program is your best op- 
tion in creative investing. 
Analyze option prices 
before risking any money. 
Convenient features are 
data entry and flexibility in 
handling a wide variety of 
situations. 

Available for Level II, 16K 
S-80 Microcomputers. 

$29.95 




T5€im^lD€ 

6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-8aO-2Sa-1780 




VTOS 4^ 

VIRTUAL 
TECHNOLOGY, INC. 

Operatins System Diskette 
with Operator's Guide 



Supports 8" drive, Double Sided 
drive, Double Density drive, 80 Track 
drive, and Winchester technology 
fixed drive. Supports double-speed 
processor clock modifications. 
Features Include: Improved 
overlay structure, general purpose 
output spoilers, keyboard 
typeahead, user definable keys, built- 
in Graphic string packer, dated file, 
marked files, file transfer by class, 
built-in SYSTEM command contain- 
ing lower case display driver, non- 
BREAKable AUTO and CHAIN com- 
mands, wild-card DIRectory, 
aLLOCate command for pre- 
allocation and non-releasabillty of 
file space, and MEMORY command 
for directly setting upper memory 
limit. 
User may SYSGEN a custom 
VTOS system configuration contain- 
ing special I/O drivers, device LINK- 
Ing and ROUTEIng, SPOOLIng and 
DEBUG tasks. 
COPY and APPEND commands 
execute up to SOO'/o faster. 

No security disk needed to 
make backups or to run the 
system $99.95 




TSeiHPIRDSIIX 

6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 
1-800-258-1790 

(In NH call 673-5144) 
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FUGUE 




by William Morris 

FUGUE is an Atari program 
requiring at least 16K. 

For lovers of serious music, 
here's a program that will play a 
Bach fugue for you, and let you 
watch it in color on your video 
screen as well. While this program 
does not permit you to control the 
actual music, as many software 
packages do, it does have four 
voices and an intricate interplay 
thereof, uncommon for the Atari. 

Key it in and relax, we think 
you'll enjoy it. 
© Wm. Morris & J. Cope 
0-1: Credits. 
10: Dimension arrays. 

This fugue is written for four 
voices. For each voice, Y is the 
note, X is the line the note will be 
printed on and W is the left/right 
plot position of the note. R is used 
to randomly generate a color for 
the background. 
20: Title page. 

210-240: Draws four lines on the 
screen and places the notes on the 
left. 

250: This line is a time saver. 
Given the complicated nature of a 
fugue and its note pattern, the 
precise termination point is 
unclear. This line is looking for an 
OUT OF DATA error, which will 
allow it to jump to line 330. 
300-310: For each of the four 
voices (Z = to 3), the program 
reads the note value (Y) and then 
plots the note on the proper line 
(X) at the proper position (W). 
330: When the program runs out 
of data this line turns off the 
sound and runs the program again. 
1000: Data for notes. 

With such a massive number of 
data statements, it was deemed 
easier to edit a previous line as 
opposed to entering an entirely 
new line. 



REM ra FUGIE m 

1 REM rax <c) Hn. Morris t J. Cope va 
10 DIM H<3),X(3),Y<3):R=RND(0)i15 

20 GRAPHICS 2+16*.SETCa(]R '».3,2:CDL0P 32 
iPLOT 6,5!? »6; "FUGUE" '.FOR n=l TO 20001 
ffXT TT 

210 GRWTOCS 3+16!SETC0L0R 0,8,9;SETCOLO 
R 1,8.5!SETC0L0R 2,O,2;SETC0L0R -J.R.O 



220 COLOR 3 

230 FOP Z=0 TO 3:PL0T 0,Zi5+3![)RAMTO 39, 
Zi5+3*.>EXT Z 

2^8 FOR Z=0 TO 3:H(Z)=0:X(Z)=3JNEn Z 
250 TRAP 330 

300 FOR Z=0 TO 3tREAP Y'.Y(Z)=YtCOLOR 3:P 
LOT H(Z).X(Z)!CDLOR 15H(Z)=IMT(Y(Z)/6)tX 
(Z)=Zi5+3!PL0T H(Z).X(Z)!ICXT Z 
310 SOUM) 0,Y(0),10,'»tSOUND 1,Y(1),10,V. 
SOUM) 2.Y(2),10.'»:SOUND 3.Y<3),10,'»!GOTO 
300 

330 FOR z=o TO 3:souND z.o,o,o:mext ZIFO 

R Z=l TO 500tNEXT Z1RUN 

1000 DATA 81.0,0,0,81,0,0,0,81,0,0,0,81, 

0,0,0 

1010 DATA 53,0,0,0,53,0,0,0,53,0,0.0,53, 

0,0,0 

1020 DATA 68,0,0,0,68,0,0,0,68,0,0,0,68. 

0.0,0 

1030 DATA 68,0,0.0,68,0,0,0,72,0,0,0.72, 

0,0,0 

lO'lO DATA 81,0,0,0,81,0,0,0,68,0,0,0,68. 

0,0,0 

1050 DATA 72,0,0,0.72,0,0,0,81,0,0,0,81, 

0,0,0 

1060 DATA 85.0,0,0.85.0.0.0,72.0,0,0,72, 

0,0,0 

1070 DATA 108,0.0,0,108,0,0.0,108.0,0.0, 

108,0,0,0 

1080 DATA 81,0.0.0,81,0,0,0.108,0,0,0,10 

8.0.0,0 

im DATA 72,0,0.0,72,0,0,0.108,0,0,0.10 

8,0.0.0 

1100 DATA 68,0,0,0,68.0,0,0,72,0,0,0,81. 

0,0,0 

1110 DATA 72.0.0,0.72,0.0,0,108,0.0,0,10 

8.0.0,0 

1120 DATA 81.0,0,0,81,0,0,0.108.0,0,0.81 

.0.0,0 

1130 DATA 72.0,0,0.72,0,0,0,108,0,0,0,72 

,0,0,0 

IHO DATA 68.0,0,0,68.0.0.0.72.0,0,0,81, 

0,0,0 

1150 DATA 72.0.0,0,108.0,0,0,53.0,0,0,60 

.0,0,0 

1160 DATA 68,0,0.0,72,0,0,0,81,0,0.0,68. 

0,0,0 

1170 DATA 72.0,0,0.81,0.0,0,85.0,0,0,72, 

0,0,0 

1180 DATA 81.0.0,0,108.0.0,0,81,0,0,0.72 

.0,0.0 

1190 DATA 68,0,0,0,60,0,0.0,53.8,0,0,17, 

0,0,0 

1200 DATA 45.108.0.0,17.108,0,0.53,108,0 

,0,15,108,0,0 

1210 DATA 17.72,0,0,53,72,0.0,57.72,0,0, 

17,72,0,0 

1220 DATA 53,91,0,0.53,91,0,0.72,91,0,0, 



72.91.0,0 

1230 DATA 53.91,0,0,53,91,0,0,17,96,0,0, 

17.96,0,0 

1210 DATA 15,108,0,0,10,108.0,0,15,91,0, 

0,10,91,0,0 

1250 DATA 15.96,0.0,10.96,0.0,15,108,0,0 

,10,108.0,0 

1260 DATA 35.111,0,0,10.111.0,8,35.96.0. 

0,33.96,0,0 

1270 DATA 35,111.fl.0,1(l,111,fl,0,15.111.0 

,0,17,111.0,0 

1280 DATA 15.108.0,0,35,108.0,0,10.111,0 

,0.35.111,0,0 

1290 DATA 57.96.0,0,35.96.0.0,10,111,0,0 

,35,111,0,0 

1300 DATA 53.91,0,0.35.91,0,0.10.96,0,0, 

35.108,0,0 

1310 DATA 57,96,0,0,35,96,0,0,10,111,0.0 

,35,111,0.0 

1320 DATA 15,108,0,0.53,108,0,0,57,111,0 

,0,53,108,0,0 

1330 DATA 10,96,0,0,53,96.0,0,57,111,0,0 

,53,96,0,0 

1310 DATA 35,91,0.0,53,91,0.0,57,96,0,0, 

53,108,0,0 

1350 DATA 10,96.0,0,53,111,0,0,57,72,0,0 

,53,81,0.0 

1360 DATA 72,91,0,0,72,96,0.0,15.108,8,0 

,15.91,0,0 

1370 DATA 81,96,0,0,81,108,0.0,17,111,0, 

0,17,96,0,0 

1380 DATA 91.108,0,0,91,111.0.0,72.108,0 

,0,72,96,0,0 

1390 DATA 53.91,0,0,53,81,0,0,15.72,0,0, 

15,61,0,0 

1100 DATA 50.60,0,0,50,68,0,0.35.60,0,0. 

35.53,0.0 

1110 DATA 00.60.0,0,00,68.0.0,00,72,0,0, 

50,60.0,0 

1120 DATA 53.68,0,0,53,72,0,0,10,53,0,0, 

10,60.0,0 

1130 DATA 00,68,8,0.00,72,0,0.00,81,0,0, 

53,68,0,0 

mo DATA 60.72,0,0.68.72,0,0.60.81,0,0, 

53.81 ,fl,0 

1150 DATA 60,85.0,0,35,85.0.0,10.108,0,0 

,35,108,0,0 

1160 DATA 68,81,162,0,10,81,162,0.12,81, 

162.0,10,81,162.0 

1170 DATA 72,0,108,0,15.0,108,0.17,8,108 

,8,15.0,108,0 

1180 DATA 10.0,136,0,10,0,136.0,10,188,1 

36.0.10.108.136.0 

1190 DATA 10.81,136,0,10,81,136,0,10,72, 

111,0,10,72,111.0 

1500 DATA 0,68.162,0,0.60.162,8,0,68,136 

,0,0,60.136,0 

continued on page 76 
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INVENTORY 




by R. Robitaille 



Inventory *S' is an exciting advance in small business 
software for the TRS-80™. Its in-memory system of data 
storage solves the problems of both sequential and random 
access files, while providing extremely fast, random access to 
any record. Other advantages include the ability to use any 
combination of characters for stock number; an exceptionally 
flexible record format (field names are user definable); and 
the ability to store data to tape or disk and upgrade at any 
time. Up to 150 items can be stored per 16K of available 
memory, with stock number, description, cost, vendor, 
reorder, and profit data in each record. Use your present 
stock numbers (a sort function is included), unlike competing 
systems which force you to use a different "record number," 
User-definable screen and printer reports let you see just the 
data you need, when you need it. 

Inventory *S' can be used effectively with a 16K, tape based 
system or a 48K, disk and printer system. 

TAPE VERSION, 16K (min.), LEVEL II $24.95 

a32K DISK VERSION $39.95 
WITH INVOICING ON DISK $59.95 



T5€iHPira>5ID€ 

6 South St., Milford, N.H. 03055 



ORDER TOLL FREE: 
1-800-258-1790 

(in NH call 673-5144) 
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Small 

Business 

Book- 

Keeping 

for 

disk 

by Miller 

Microcomputer Services 
and Roger W. Robitaille, Sr. 




Based on the well-known 

Dome Bookkeeping System. 

Posts expenses to as many 

as 42 accounts (which you 

may customize). Produces 

video and iineprinter reports 

for year to last week, this 

week, year to date; supports 

cash system of accounting; 

stores data on disk for fast 

retrieval. 

Available for 32K 

Cassette $24.95 

Disk $29.95 



T5€JHPi^lD€ 

6 South St., Miltord, N.H. 03055 

ORDER TOLL FREE: 
1-800-258-1790 

(in NH call 673-5144) , 
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continued from page 74 

1510 DATA 0,68,11^.0, 0,60,1'H, 0,0,68.162 
,0,0,60.162.0 

1520 DATA 0.53.173,0,0,60, 173,0,0,53,W 

.o.o.so.m.o 

1530 DATA 0,53,217,0,0,60.217,0,0,68,217 
,0,0,72,217.0 

1540 DATA 68,108.162.0,53.108.162.0,60,0 
,217,0.53,0.217,0 

1550 DATA 85,121.1'M.0.53,121,W,0,60,0 
,217.0,53,0.217,0 

1560 DATA 81,108.136,0,53.108,136,0,60,0 
,1^,0,53, 0,162,0 

1570 DATA 85.121. I'M, 0.53.121. 111,0.60,0 
,217.0,53,0.217,0 

1580 DATA 68,00,162.0,68.81,162.0,68,85, 
217.0,68.81,162.0 

15?0 DATA 60,0,141,0,60,81.111,0.60.85,2 
17,0,60,81.162.0 

1600 DATA 53,0,136,0,53,81.136,0,53,85.1 
11,0,53,81,162,0 

1610 DATA 60.0,111,0,60,81,217.6.60.85.1 
08,0,60,81,121,0 

1620 DATA 0,108,136,0,0,108,111,0,68,108 
,162.0,68,108,136,0 

1630 DATA 0.121,111,0.0,121,162.0,72,121 



,173.0,72,121,111,0 

1610 DATA 0.136.162.0,0,136,217.0,108,13 
6.162.0,108,136,111,0 

1650 DATA 81,0,136,0,72,0.121,0,68,0,108 
,0,81,0.96.0 

1660 DATA 72,0.91.217.72,0,96.217,53.0.1 
08.217,53.0,91.217 

1670 DATA 57,0,96,111.57.0,108.111.17.0. 
111.111.17.0.96,111 

1680 DATA 35,0,108482.33,0.108.182,35.0 
.111,182.10.0.111.182 

1690 DATA 15,0,108,182,17.0,108.182,53.0 
.96,193,57,0,96,193 

1700 DATA 53,0,91,217,53,0.81,217,0.0,91 
,132,0,0,81.182 

1710 DATA 33,0,91,193,33,0,81,193,0,0,91 
,217,0.0.81,217 

1720 DATA 17,0,72,230,17,0,81,230,0,0,72 
,193,0,0,68,193 

1730 DATA 0,0,72,230.0,0,81,230,35,0,91, 
230,35,0,96,230 

1710 DATA 35,0,91,217,35,0,72,217,35,0,8 
1,217,35,0,72,217 

1750 DATA 35,0,111,193,35,0,72,193,35,0, 



81.193.35,0,72,193 

1760 DATA 35.0,108,182,35.0,72,182,35.0, 
81,193,35.0,72.217 

1770 DATA 35,0,111.193,35,0,72,193.35,0, 
81.193,35,0,72,193 

1780 DATA 35,0,91.217.35,1,108,217.35.0. 
111,217.35.0.108.217 

1790 DATA 35,0,81,193,35,0,188,193,35,0, 
111.193,35,0,108,193 

1800 DATA 35,0,72,182.35,0.108,182,35,0, 
111, l'»3,35,0. 108.217 

1810 DATA 35.0,81,193,35,0,108,193,35.0, 
111.193,35,0,108,193 

1820 DATA 10,0,91,217,35,0,91.217,33,0,9 
6,217,35,0,108,217 

1830 DATA 10.0,111,230,15.0,108,230.17,0 
,111,230,53,0,108,230 

1810 DATA 53. 0.108,217,53,0, 108,217 ,53,« 
,108.217,53,0,108,217 

1850 DATA 53,0,108,217,53,0,108.217,53,0 
,108,217,53.0,108,217 

1860 DATA 53,0,108.217,53,0,108.217.53,0 
.108,217.53,0.108,217 

1870 DATA 53.0,108,217,53,0,108,217.53,0 
,108,217,53,0,108,217 ^ 



BUGS, WORMS, and other 
undesirables 

by Kay Pasa 
OOPS AGAIN! ! ! ! 

Encounter in the near Tholian Sector 
It seems that last month we 
described the need to add a 
statement to line 40 but forgot the 
needed statement. Well here it is: 

40 :B = INT(180*RND(A/L/10)) 

Dr. Livingston 
Please add this line: 
49990 REM 



Atari One Liner 

by James Garon and George Blank 



1 POKE 82-17 POKE 752,1 POKE 710.PEEK(20 
^ FOR. 1=1 TO 3^SaJND 0,0-6-8 ? "V-H":? " 
I I" SOUND 0,19e-6-6:f€XT 1^? "H- (t,.,? « 
I ir^RUN 



2 REM POKE82-I7^POKE752-1:POKE710-PEEK(2 
0):FOR'I=1TO3^SO. 0-0,0,0: ?"t~W"i?" I |":S0 

.0,190,6-0 N^?"»-lT":7" I ||":RUH 



S-80 One Liner 

by Robert Westeoh 



1 CLB«99;CLS;PF;INT"H A G I C COD E":F1>INT"E n t e r m s g 
"!INPUTA*;PRINTCHF:»(28) :PRINTCHR$(31) !X=L£N(A») !F0RY=1T0X:B»=8»+ 
MID«(A»,Y.l);C$=CHR$(RN0(58)+31):e»=E;$+C«;NEXT'.PRINT"E N T E R"; 
INPUTD«!PRINTE»:PRINT;PRINT"E N T E R"tINPUTD«;PRINTCHR»(23) 



S-80 One Liner 

Racing 
by Nick Dilisi and Anthony Abate 

1 P=28;C»="K";F(]RT=1T01E9:B=RND(11 ) ;iFT/1=IMT(T/1)P1tINTe916+Q. " 
0"'.(CXTELSEAi="I I":PRINTe98O,A$:PRBfT01O23.!PRINTeP. 

C»:IFPEEK(15189+P)=790RP>320RP<21PRINTBP."BOOM":FORH=1T09;NEXT!R 
l*B.SEK=PEEK(11100)!IFK=32P=P-i;NEXTaSEIFK=61P=P+r,NEXTELSENEX 
T 



PASCAL 

AN INTRODUCTION TO 

METHODICAL 

PROGRAMMING 

Learn to program in PASCAL 




75€:IHPii^lD€ 

6 South St.MiHord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-2SS-179a 



Stimulating Simulations 

Second 

Edition 




T5€:IHnRDSID€ 



6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-aOO-2S8-1790 
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Acorn Software 
and Leo 

Christopherson 

combine to 

bring you 




You are the Fencing Master and your Android 
is the raw material you use to claim top honors 
in the Tournament. All you need to do is train 
him (her, it?) To do so, you make the android 
duel with the machine's androids. Once he is 
trained to your satisfaction, just enter him in the 
Tournament and sit back to watch the fun. 

Features include: 

*Extensive Graphic Displays 
^Multiple Playing Levels 
*Sound Effects 

Christopherson is the author of such programs 
as Android NIM, Snake Eggs, and Bee Wary. 
Don't miss out on the chance to add this great 
action game to your software library. 

TRS-80 Level II, 16K Cassette $14.95 

Disk $20.95 

The Sahware Exchange 

6 South St.. Milford. NH 03055 

TO ORDER 

CALL TOLL-FREE 

1-800-258-1790 



IN N.H. CALL (603) 673.5144 





NEWfrom 
WU^^ popular 
papertackline 



USING CP/M® 

Judi N. Fernandez & Ruth Ashley 

This detailed, self-paced introduction to Control 

Program/ Microcomputers— the most widely used 

microcomputer operating system— lets you use 

CP/M to get maximum capability and efficiency from 

your micro. 

"A marvelous addition to the CP/M literature. ... I onty 

wish that I had had the txjok when I was starting out!" 

—Alan R. Miller, New Mexico Tech and Software 

Editor, Interface Age 

471 0801 1-X Sept. 1980 343pp. $8.95 + $1 

BACKGROUND MATH FOR A 
COMPUTER WORLD, 2nd Ed. 

Ruth Ashley in consuttation with Nancy B. Stern 
Here are all the basic mathematical techniques, 
concepts, and facts you need for productive, intelli- 
gent interaction with your computer using any 
computer language. The new edition of this popular 
manual includes an entirely new chapter on 
trigonometry. 
471 08086-1 1980 308pp. $7.95 + $1 

WHY DO YOU NEED A PERSONAL 
COMPUTER? 

Lance A. Leventhal & Irvin Stafford 
Whether you're considering buying a personal 
computer or already own one, this is the book for 
you! Both consumer handbook and practical 
manual, it's more comprehensive, detailed, and uf>- 
to-date than any other work of its kind. It includes 
sensible guidelines on the advantages and 
drawbacks of each model, plus technical advice and 
sources of equipment and information. Find out how 
to use the personal computer to manage your 
finances, analyze stock market trends, serve as 
appliance controllers, much more! 
471 04784* Nov. 1980 approx. 320pp. $8.95 + $1 

FORTRAN IV, 2nd Ed. 

Jehosua Friedmann, Philip Greenberg, & 
Alan M. Hoffberg 

A revolutionary new edition of the standard 
FORTRAN guide— now heavily oriented to personal 
computers. You'll start writing basic FORTRAN 
immediately, then progress smoothly to standard 
extensions and advanced options. Whether you use 
FORTRAN 77 or FORTRAN IV, the authors clarify the 
differences— with comparative tables— so you can 
follow whichever version is right for your machine. 
Users of mainframe computers will also find the book 
totally applicable. 
471 07771-2 Nov. 1980 approx. 452pp. $10.95 * $1 

TRS-80 BASIC 

Bob Albrecht, Don Inman, & Ramon Zamora 
Packed with games, graphics, and practical applica- 
tions, this eagerly awaited guide leads you step by 
step to maximum use and enjoyment of your new 
TRS-80. 
47106466-1 1980 351pp. $8.95 + $1 

The Safttiai<e Exchange 

TOLL FREE ORDERS: 

1-800-258-1790 






(in NH call 673-S144) 




JOHN WILEY & SONS, Inc. 



Wiley Self-Teaching Guides also teach COBOL, Job Control Language, 
Flowcharting, and other computer skills. 



Prices subject to change without notice 

SoftSide JANUARY. 198! 
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Preferred by 
computer 
professionals 
everywhere! 




JTlli it wJ. ;: „., 



1^1 



The BEST gmen 

screen available 1 

^olid^ thick Qreen 

plastic with beveled 

edges. Don't confuse 

thi$ with the thJn fiim 

offered by other 
manufecturers. Ready 
to install, self- 
bonding, Qives 
^ustpr<mi seal, 
optically correct with 
no distortion and 
shatterproof. Fits 
im-m Model!, 
Model II and teedex 
Video 100 monitors. 

$19.95 



The 

Sahwate 

Exchange 

TO ORDER TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 



Don't lose your 
message because 
of the medium... 

DISKETTES 



We ofler two levels of diskettes: certified and non-certified. The certified diskettes have 
been put through a test to check the entire working surface tor bad spots and are certified 
error-free by the nnanufacturers. The Dysan and 3-M SCOTCH diskettes are certified 100% 
error-free. 

The BASF company invented magnetic tape from which the large and varied industry of to- 
day has grown. We offer the BASF premium quality (non-certified) diskettes which enjoy the 
lowest rejection rates of any manufacturer. All of our disk-based software is duplicated on 
BASF. 



BASF: 

Box of 10 $34.95 -t- $2 

Box of 100 $299.00 -t- $3 

3-M Scotch: 

Box of 10 $39.95 + $2 

DYSAN: 

Box of 5 $29.95 + $1 




CASSETTES 



The cassettes used for recording data are composed of two parts: the cassette shell and 
the tape itself. The shell used in our cassettes is of premium quality and is solidly held 
together with 5 screws. The tape used In our cassettes is of the same type used by some 
studios for making master recordings. Our tapes have non-magnetic leader to avoid the con- 
fusion caused by some brands of tapes with magnetic leader (called "leaderless" tapes) 
spliced to the rest of the tape allowing data to drop at the splice point. 

The cassettes offered here have been chosen for the highest quality components consis- 
tent with a practical cost level. 

Cassettes come packaged In boxes of 10. They are offered in 10 and 20 minute lengths. 

C-10 $6.95 -f $1 

C-20 $7.95 + $1 




T5€;HPIRDSID€ 



6 South St.,Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Galactic 
trllogq 

by Douglas Carlston 




Move up to grand 
\ strategy! Fight your wars 
as a general, not a pilot! 



Galactic Empire — As commander of Galactic's 
Imperial Forces, you mast conquer the worlds of the 
galactic system. Deploy armies, raise taxes, gather 
inteHigence, manage resources. 

Galactic Trader — You are an ex-soldier who must 
scramble for a living as an intergalactic tramp 
freighter. Outwit the locals at bartering, struggle 
with the fuel cartel, and outmaneuver the big trading 
monopolies as you seek your fortune. 

Galactic Revolution — The emperor is becoming 
unpopular. Your own popularity is a threat, and he is 
seeking to kill you. Turnabout is fair play, so you 
start a revolution to unseat him. 

Each game... 16K Level II Cassette $14.95 

Special!! — All three on Disk (32K) $39.95 



6 South St., Milford, N.H. 03055 
ORDER TOLL FREE: 1-800-258-1790 
(in NH call 673-5144) 




TS&IHPRDSIIX 



PRESS DOWN 



PRESSURE RING 




REMOVE BACKING PAPER 
ANDPLACERING — 
ADHESIVE SIDE DOWN 



I FLOPPY DISC 



CENTERING TOOl 



TrFStar Corporation 




FLOPPY SAVER 
PREVENTS: 

Computer drive's 
clamping hub from tear- 
ing disk's center hole. 

Coating removal, scuf- 
fing and dimpling when 
the disk hits the rotating 
spindle. 

Data loss caused by 
improper rotation of a 
floppy disk. 

Any damage to Floppy 
Disk's center hole. 

FLOPPY SAVER KIT 
consists of: 



Plastic centering tool 
and pressure ring. 

25 7-mil mylar rings 
with paper protected 
adhesive backing. 

EASILY installed on 
disks in seconds. Only 
one side needs the ring. 

For 5y4" diskettes 
Complete Kit $14.95 
Refill $7.95 

TS€:HPil^lO€ 

6 South St , Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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DISKETTE 
LIBRARY CASE: 

Allows you to store up 
to 15 mini-diskettes in a 
strong molded plastic 
carrier. 
$5.00 + $1 



I 




SOUNDWARE 

SOUNDWARE adds a 
wtiole new dimension to 
your computer games 

Programs come 
alive with laser sounds, 
bounces, clicks, sirens, 
bird calls, music notes, 
tunes, and whatever else 
your imagination dreams 
up. Just slip in two AA 
batteries, plug into your 
computer, and have fun. 

SOUNDWARE 
SOFTWARE programs 
are also available to 
enhance the enjoyment 
of your computer. $29.95 



nZTT 



u 





DIGITAL CASSETTES 

Premium quality digital recording tapes. These 5-screw cassettes come 
packaged in boxes of 10. They are offered in 10 and 20 minute lengths. 

C-10 $6.95 + $1 

C-20 $7.95 + $1 

DISKETTES 

DYSAN: 

104/1 One-sided single density (one side certified error free at single 
density of 3979 bpr.) In track and between track testing is performed to 
ensure that the entire recording surface of every disk is 100% error-free. 
Box of 5 diskettes $29.95+ $1 

BASF: 

Box of 10, 5V*" Single Density $34.95 

Box of 10, 5V4" Double Density $44.95 

Box of 10, 8" Double Density $49.95 

3-M SCOTCH 

Encased in a tough jacket which resists handling damages. 100% 
certified error-free performance. Low modulation provides better signal 
stability. 
Box of 10 $39.95 + $2 







• 




DISKETTE HEAD CLEANING KIT: 

3-M Scotch 7400 head cleaning kit is simple and easy to use. You simply 
saturate the write head cleaning fabric in the cleaning diskette with the 
cleaning solution, insert the diskette into the drive and turn it on. The 
rotating cleaning fabric alternately wipes the heads with the solution and 
the dry surface, removing contamination from the read write head. Each 
kit contains 10 cleaning diskettes which will allow you a total of 150 
cleanings. $29.95 

RECORDING HEAD TAPE ALIGNMENT KIT 

It consists of a template for locating the adjustment screw. An alignment 
tape is also included and a special screwdriver as well. The kit will allow 
you to align the heads to an industrial standard, ensuring consistent 
loading results. 



FLOPPY DISK SAVER 

PREVENTS: 

Computer drive's clamping hub 
from tearing disk's center hole; 

Coating removal, scuffing, 
dimpling; 

Data loss caused by improper 
rotation. 
$14.95 Refills $7.95 




FLOPPY ARMOR: 

Prevents damages to your 
diskettes. These are high 
density, ultra lightweight 
polymer shipping envelops. 
Pack of 5 $4.95 + $1 
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Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 



3-dimensional figures can 
be rotated, shifted, scaled, 
or distorted. Each figure 
can be saved on disk and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on diskette 





TO ORDER 
TOLL FREE 
1-800-258-1790 

(In NH call 673-5144) 



^ 



A16K 

COMPUTER 

OPPONENT 

PROGRAM FOR 

THE APPLE II 

AND TRS-80 

PS^tSONM SOrTWA=tE INC 

"MONTY TM plays 
Monopoly"* is a computer 
opponent program designed to 
be used along with your Parker 
Brothers Monopoly game. You 
will need the board and all of the 
equipment that comes with the 
game to use this computer 
opponent program. 

MONTY TM provides a new 
dimension in microcomputer 
software. You will come to 
know him as simply another 
player, a bright, entertaining 
guest who provides real 
excitement for many of your 
favorite board games. 

MONTY TM written in 
machine language, works with a 
16K TRS-80 Level II or 16K 
Apple or Apple I! plus. Cassette 
$24.95. Diskette $27.95. 



The 

Saih^re 

Exchange 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 



HI RESOLUTION 
DRAWING 

Connect any points on 
the screen, fill areas, 
paint with a set of nine 
"brushes" (or define 
your own), and 
draw with, plot, 
rotate, and scale 
shapes that 
you define 







SHAPE 

TABLE 

DESIGNER 



Design shape tables with 
keystrokes or paddles. 

Also included are Applesoft 

Invaders and Slot Machine — 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs. 
32K Applesoft , ROM 

$29.95 on diskette 
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ATARI" SOFTWARE 

by Tim Hays 



Construct data base 

by entering geometric 

coordinates, then 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, high resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. iii 

$29.95 VII 

TO ORDER TOLL FREE 

1 •800-258-1790 

(In NH call 673-5144) 

breeze 
compuliA9 



HOWS YOUR LOVE LIFE ? 

A little dull around the edges? Routine 
needs is a little Interlude. Interlude is the 
ever conceived, it combines a computer 
programming concept, and a one-of-a-kini 
exciting, adventurous, delicious fun! 

With over 100 Interludes, you can sati 
Each Interlude is fully described in the m, 
are detailed with regard to settings, props, 
But we've saved a few super Interludes for 
interview indicates you're ready! At that tir 
of several Interludes held secret within the coi 
secret Interlude #99, your love life may never 
can give you experiences you'll never forget. 

16K Apple cassette/I $16.95 
32K Apple disk/I $19.95 
16K S-80 cassette/Level II $16.95 
32K S-80 disk $19.95 



by Syntonic Software Corporation 




■Predictable? Boring? Maybe all it 
most stimulating computer game 
nterview, an innovative 
d manual to turn your love life into 

\u all levels of interest and desire, 
ajjal, and the more elaborate ones 

Sd mood enhancing techniques 
a very special time when yor- 
3u will be introduced to onl 
i puter. (When you learn I 
5e the same again!) InterludI 
2re you ready for it? I 




15€dHPffilD€ 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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COMPUTER GRAPHICS 




by Joan Truckenbrod 

Basic techniques used for 
manipulating graphic images on 
the video screen include scaling, 
translation, rotation and 
transformation operations. 
Previous articles in this column 
have illustrated these techniques 
using two-dimensional figures 
defined in X and Y coordinates. 
An illusion of three-dimensional 
space can be created with two- 
dimensional figures by gradually 
changing the size of the figure with 
the scaling procedure described in 
the October 1980 issue of SoftSide. 
However, actual three-dimensional 
color figures can be drawn on the 
screen and moved around in space 
by using the techniques described 
in this article. These three - 
dimensional figures are defined by 
X, Y and Z coordinates and drawn 
as wire frame drawings in which 
all of the lines are visible. Hidden 
lines are not removed in these 
examples. Constructing three- 
dimensional figures requires an 
additional step in the drawing 
process as these figures have three 
dimensions, height, width and 
depth, and must be drawn on a 
plane (the video screen) with only 
two dimensions, height and width. 
Consequently, a technique is 
developed to translate the X, Y, 
and Z coordinates defining the 
figure into X and Y coordinates to 
facilitate drawing it on the screen. 

The procedure for accomplishing 
this transition from three- 
dimension to two-dimension 
consists of two steps. First, the 
figure to be drawn is defined in 
terms of X, Y and Z coordinates. 
Then the figure is "projected" 
onto a two-dimensional plane 
using a mathematical formula. 

STEP 1: DESCRIBING THREE- 
DIMENSIONAL FIGURES 

A three-dimensional figure is 
defined by a series of X, Y and 
Z coordinates and lines that are 
drawn to connect specified 
points. Begin by constructing the 
figure within a cube. Drawing 
the orthographic projection of 
this cube and enclosed object 
will help in determining the X, Y 
and Z values for each point in 
the figure. 
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Point Connections: 




1-2 1-5 






2-3 2-5 






3-4 3-5 






4-1 4-5 






STEP 2: PROJECTION OF A 
THREE-DIMENSIONAL 
FIGURE ONTO A TWO- 
DIMENSIONAL PLANE 

The projection of a three- 
dimensional figure onto the 
video screen uses the concept of 
similar triangles to transform the 
X, Y and Z coordinates defining 
the original figure into X and Y 
coordinates for plotting the 
picture on the video screen. 

SoftSide JANUARY, 1981 



Triangle ABC and ADE are 

similar triangles. Therefore the 

lengths of the sides are 

proportional. 

AE: AC = DE : EC 

AE * BC = AC * DE 



DEFINITION OF VARIABLES: 
X ( ), Y (), & Z ( ) 

Arrays containing X, Y and Z 
coordinates of points defining 
figure or object in three - 
dimensional space. 

CO 

Array containing point 
numbers of points in figure to 
be connected with lines. 

XY ( ), YT ( ), ZT ( ) 

Arrays containing locations of 
intersection points at picture 
plans of projection lines 
drawn from station point 
(viewer) to object points. 

SX, SY, SZ 

Coordinates of location of 
station point or viewer. 

DETERMINATION OF 
INTERSECTION POINTS 
BASED ON SIMILAR 
TRIANGLES 

X COORDINATE: 

X(I):XT(I) = (Z(I) + SZ):SZ 

X(I)*SZ = XT(I)*(Z -H SZ) 

XT(I) = X(I)*SZ 
Z(l) + SZ 
DETERMINATION OF X AND Y 
COORDINATES FOR 
PROJECTION DRAWING 

X COORDINATES: 

(SZ-Z(I))*ST(I) = X(I)*SZ 
X(I) = (SZ-Z(I))*XT(I) 

SZ 
Y COORDINATES: 
(SZ-Z(I))*YT(I) = Y(I)*SZ 
continued on next page 



continued from previous page 


50 


REM CONSTRUCnON OF A THREE 


270 XT(I) = (X(I) I SZ.) / (Z(I) + 


Y(I) + (SZ-Z(I)*YT(I) 




DIMENSIONAL FIGURE 


SZ) 


SZ 


&0 


REM WRilILN BY .BAN TRUCKENEi 


280 YT(I) = (Yd) I SZ) / (Z(I) + 


The three-dimensional character 




ROD 


SZ) 


of the figure is most obvious when 




the figure is rotated or tilted in 


100 


DIM X(59),Y(50),Z(5fl),XT(50) 


290 NEXT I 


space to expose two to three sides 




,YT(50),ZT(50),C(100) 


300 REM THE FOLLOWING LOOF" CALC 


of the figure. Rotation of three- 


110 


REM NP IS THE NUMBER OF POI 


ULATES THE NEW X AM) Y COORD 


dimensional figures will be 




NTS IN THE FIGURE 


INATES 


described in the next issue of 


120 


REM NC IS THE NU^KR OF CON 


310 FOR I = 1 TO NF- 


SoftSide. 


NOTE: 




ICCnON LINES IN THE FIGIM 


320 X(I) = ((SZ - Z(I)) I XT(I)) / 






130 NF- = 5 


SZ 




The Y Axis is vertical, 










perpendicular to the page. 


HO IC = 8 


330 Yd) = ((SZ - Zd)) « YTd)) / 






150 


FOR I = 1 TO NP 


SZ 




/ 


160 


READX(I),Y(I),Z(I) 


310 >EXT I 




„. „. / 


170 


NEXT I 


350 HGR2 




Object Point / 

rX Y 71 / 


180 


DATA 0,50.0,0,50,50.50,50,5 


360 Hmi.OR= 3 




V>*, 1 ,^/ 


/ 


190 


0,50.50,0,25,0,25 
FW^' I = 1 TO NC X 2 


370 GOSUE: 3000 
100 STOP 




? 








200 


READC(I) 


3000 l€M PLOniNG SUEWXJTINE 








210 


NEXT I 


3010 FOR I = 1 TO NC X 2 STEP 2 








220 


DATA 1,2,2,3,3,1,1,1,1,5,2, 


3020 HFIOT X(C(I)),Y(C(I)) TO X( 


-X 


0,0,0 J 


+ X 


230 


5,3,5,1,5 

REM STATION POINT LOCATION 


C(I + 1)),Y(C(I + D) 
3030 NEXT I 






Picture Plane 


r Intersection 
/ Point (XT,YT,ZT) 




IS SX,SY,SZ 


3010 RETURN /\ 






210 sx = o:sY = o:sz = - 300 


3050 END //ft, 


sx = o 




250 


REM THE FOLLOWING LOff' CALC 


// % 


SY = 


■ Station Point 




ULATES THE INTERSECTION FIDIN 


if W 




Location of viewer 




TS 

FOR I = 1 TO NP 




"i 


1 


260 
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ON-LINE SYSTEMS 

HI-RES ADVENTURES 

For 48K Apple II and Apple plus 

MACHINE LANGUAGE 



#1 Mystery House 



$24.95 on disk 



You are transported to the front 

lawn of a large, old Victorian fiouse. 

Upon entering the house you find 

yourself enmeshed in murder, 

mystery, and intrigue from which 

you cannot escape until you solve 

the puzzles. One by one your 

friends are being murdered and it is 

up to you to find out who the killer 

is and why he is bent on mayhem. 

But watch out! The killer just might 

find you first. As you explore the 

house you will encounter puzzles to 

solve and hazards which must be 

overcome. The secret passageway 

might lead you to the answer. 

'Over 100 Hi-Res pictures for 
playing and watching your 
adventure! 



"All rooms in the house appear in 
full Hi-Res graphics, complete with 
objects you can carry, throw, drop, 
or ??? 

"Speak to the computer in plain 
English — over 300 words! 



BOTH 

ADVENTURES 
CAN BE SAVED! 





#2 The Wizard 

and the Princess 

$32.95 on disk 

A princess in distress' Only you can rescue her from the clutches of an evil wizard and save 
her life But to find the wizard and his castle, you must first cross deserts, mountains and 
oceans to reach an island, encountering strange beasts along the way You will have to learn 
magic, navigate at sea. and search for buried treasure This epic game should provide months 
of pleasure 

•Hundreds of Hi-Res pictures' , 

■Full 21 color Hi-Res graphics' 

'By far the most ambitious graphics game ever written (or the; Apple. 




T5€:HPRDSID€ 



6 South St.. (Vlilford. NH 03055 (603) 673-5144 
ORDER TOLL-FREE: (In NH call 673-5144) 
1-800-258-1790 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
Like These Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 
condition. $450. C^ "--^601 

,^p^CT ««:;^V?erfa'ces-EigM 

and P«'^"l, 'ter sizes-SmgW 
Selectable ^'^".^"'^characters-uses 
Vnd double >^'d*^^^" , - same 
Standard P>a.n ^^^^a data 

*''**'HiEATHKlT H-11/DEC LSI-11 
system, 32K Byte storage, reader 1 
punch, video terminal, complete 
software. Cost $4500 assembled, 
$3500 kit. Like new. Sell for $2250. 
305-962-6677. 2058 Griffin Rd., Ft. 
Lauderdale, FL 33312. 



7/°J Vl".= '"'t'^'^ta (Perkin-E!,^ 
''lb Mmi wth 3?k-B ^„ I ' 
panel, 50A PWR sfnni ?' /'^"' 
US tape reader^ -^^'"^ '"^'"'^^ 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer. You ship [214] 962-4484 



(TTY) 7~~' '"'^'■^aces for LP 2 

16; 16 k-word core memory, RTC 
PF-R. Modified Mod. ASR-33 TTY| 
Manuals, utilities, assemblers am 
many option boards - 16 bit I/O 
Driver, 16 bit I/O, Asynch modem 
contr. 64 bit output, 10 bit A/D - 
D/A. Fairly complete documen- 
tation Up and running in Fortran 
Not much more than TTY at $1000. 
Herb Sauer, 303-494-8724, 



"lemory board withouf m , 

t( fycoM;:;;;^^^^-^*twj5t{^ 

3 sell pfr '"^ss systJ.^''^^°'-Sl- 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-system 
computers, accessories and software 

Each ad-packed issue Is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market. 

But, COMPUTER SHOPPERS bargains wont be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation. 

Whether you are a hobbyist or a part-lime user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace in time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy. 

COMPUTER SHOPPER offers a unique format in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10 cents a word — 




makes it the ideal place lor buyers and sellers to com- 
municate And. its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you. 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now. use it anytime 
during your subscription. 

Subscription: $10/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



y The Nationwide Marketplace tor Computer Equipment 

cami^uTBR shiaPi^sR 

P.O. Box F26 • Titusville, Florida 32780 
Telephone 305-269-3211 

MasterCharge or VISA orders only, call TOLL FREE aOO-327-9920. 
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NFL-PIX for 1980-1981 SEASON 

******************************** 

Predict this Season's Games! 



********** 



******************** 



JAMES TBLLEY - 



This program will maintain weekly 
team schedules, keep track of scores 
of games played, list current Division 

win-loss standings and — predict the probable outcome of games! It establishes 
a rolling average of strengths of all teams based on past performance. During the 
last season its prediction was 6% better than the Greek Prognosticator! 

For 16K Level II TRS-80 or Single Disk DOS - - Just $19.95 
Please specify tape or disk!! Documentation supplied with either disk or tape. 

80 U.S. Software 

3838 South Warner Street 

Tacoma, WA 98409 

(206) 475-2219 

Check, Money Order, Visa/Mastercard 

TRS-80 is a Trademark of the Tandy Corporation 
80 US Software & 80 US Journal are Divisions of 80 Northwest Publishing Co, 








raLUii)r\i r^LOJUTon u.i 

by David T. Cray 

COLUMN CALCULATOR is a "word processor for 
numbers," a number processor designed to be used 
like a calculator. But it can handle large blocks of in- 
formation as if handling one number at a time. The 
work space can be thought of as a large matrix with 
rows and columns much like an accountant's spread- 
sheet. Data can be easily entered into columns; and 
the columns can then be moved around. Columns can 
be overlaid from an existing data file on disk. One col- 
umn can be added, subtracted, multiplied, divided, or 
raised to a power of another and the results put in 
another column. Columns can be compared to one 
another. Columns can be totalled, or set with a cons- 
tant, and any column can be sorted, carrying the rest 



of the columns with it. A predefined function can be 
defined, thereby preprogramming the worksheet. 

The statistical section provides analysis of the data. 
The analysis includes simple statistics, linear regres- 
sion, simple correlation, histogram and the T-test. 

The information can be printed out on the line- 
printer in a compressed format at any stage in the 
development of a data base. Thus, it can be used as a 
finished report or as a copy of the worksheet to permit 
the filling in of additional data for later entry into the 
data base. The data base can be saved on disk and 
recalled at a later date for modification or for 
generating a report. Any column in a file on disk can 
be referenced and added to the current worksheet. 

All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables 
the user to not only key in instructrons, but to edit er- 
rors or data as well. 
32Kdisk $39.95 

TS&l-riRDSIIX 

6 South St., Mllford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(In NH call 673-5144) 

^^J ^^^^ffi VISA 
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Board Games-1, 
CS-3001 (16K) 

• Mugwump $7.95 

Mugwump is a board game which uses 
a 10x10 grid on which four friendly 
Mugwumps are hiding. Your mission is to 
locate these mysterious animals and 
capture them. 

• Flip Disc 

Are you an Othello freak? Flip Disc is a 
program which will turn your computer into 
an excellent opponent. Three different skill 
levels, (good, expert, and genius), provide 
an introduction for the novice and con- 
tinuing interest for the experienced player. 

• Wumpus 

In game 1, you scour a network of 
underground caves in search of the prized 
Wumpus. Bagging a Wumpus wins the 
game, but if you accidentally stumble into 
his cave, the Wumpus will enjoy a tasty 
dinner of sauteed computer freak. 

• Wumpus 2 

If you master the dodecahedron cave 
network in Wumpus 1, you may proceed to 
Wumpus 2 which allows you to choose from 
five different caves, or you can design your 
own. 




• Qubic 

Qubic is a three dimensional Tic Tac 
Toe game. The game is played in a 3 
dimensional cube (4x4x4). The object is to 
outwit the computer and place four pieces 
in any straight line. 

• Backgammon 

This is the TRS-80 adaptation of the 
popular board game. Backgammon uses 
graphics and all the standard backgammon 
rules, not a strange computer variation. The 
computer is your opponent in this version, 
written by Scott Adams of "Adventure" 
fame. 



WRITE FOR... 

FREE 

SOFTWARE CATALOG 



Space Games-3, 
CS-3002 (16K) 

• Ultra-Trelt $7.95 

Ultra-Trek is a fast-paced version of 
Star Trek, complete with "real time" action 
graphics, lasers, Nilon space mines, high 
energy photon torpedoes, enemy ships that 
move, and an experimental ray which does 
something different each time you use it. 
You must act quickly to save yourself and 
the Federation. 

• Star Lanes 

Imagine yourself the president of an 
intergalactic shipping company. If you're 
successful, you may be named Imperial 
Advisor on Economic Affairs. Entrepre- 
neurs: to your ships. 

• Star Wars 

If you hate Darth Vader, you'll love Star 
Wars. This real time game is fun for aliens of 
all ages. May the Force be with you! 

• Romulan 

Your mission is to destroy an invading 
Romulan space craft. Maneuver through 
space and around stars looking for the 
deadly enemy, but be careful! The nasty 
Romulans fire back. 




Air Traffic Controller, 
CS-3006 (16K) $7 95 

This real time machine language 
program puts you in the chair of an air traffic 
controller. There are 27 airplanes — jets and 
prop planes — which must be controlled as 
they land, take off and fly over your air 
space. You give the orders to change 
altitude, turn, maintain a holding pattern, 
clear for approach, and land at your two 
airports. This realistic simulation includes 
navigational beacons, and requires planes 
to takeoff and land into the wind. Air Traffic 
Controller was written by an air traffic 
controller and is a favorite of the Creative 
Computing staff! 



For the 
SERIOUS 

Game Player 

... 

seRsatioRal 
soffewape 



Who is Creative 
Computing? 

Creative Computing consists of five 
divisions serving you. Creative Computing 
magazine is the number 1 magazine of 
software and applications. Creative Com- 
puting Press publishes a wide variety of 
books, art prints, posters and T-shirts for 
the computer enthusiast. And Creative 
Computing Software produces and markets 
software on cassette and floppy disk for a 
wide variety of computers for home, school, 
and small business. 

If your dealer does not carry the full line 
of Creative Computing products, please 
send three first-class stamps for a free 
catalog of products. 




duenturE 



Welcome to an astonishing new 
experience! ADVENTURE is one of 
the most challenging and inno- 
vative games available for your 
TRS-80. 

• Adventureland 

You wander through an enchanted 
world trying to recover the 13 lost treasures 
and encounter WILD ANIMALS, MAGICAL 
BEINGS, and many other perils and 
puzzles. 

CS-3008 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 48K DISK $24.95 

(Includes Pirate Adventure) 

• Pirate Adventure 

Can you recover LONG JOHN SILVER'S 
lost treasure. 

CS-3007 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 32K DISK $24.95 

(includes Adventureland) 



• Mission Impossible Adventure 

Will you be able to complete your mission in 
time? Or is the world's first automated 
nuclear reactor doomed? 
CS-3009 TRS-80 16K Level II $14.95 

CS-3507 TRS-80 32K DISK $24.95 

(Includes Voodoo Adventure) 

• Voodoo Castle 

Count Cristo has had a fiendish curse 
put on him by his enemies. Will you be able 
to rescue him or is he forever doomed? 
CS-3010 TRS-80 Level II $14.95 

(Available in November) 
CS-3507 TRS-80 32K DISK $24.95 

(Includes Mission impossible) 

• The Count 

You'll love this Adventure; In fact, you might 
say It's LOVE AT FIRST BITE . . . 
CS-3011 TRS-80 Level II $14.95 

(Available in November) 
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strategy Games, 
CS-3005 (16K) 

• Tunnel Vision $7.95 

You are transported into a massive 
labyrinth and must find the exit or be lost 
forever. This is an excellent example of 
three dimensional perspective using TRS- 
80 graphics. 

• Evasion 

In this real time game, you are pursued 
around the game board by an evil-looking 
snake. Variations of play include two 
different speeds and hyper-jumps which 
randomly relocate you on the board. 
Looking for an escape? Try Evasion. 

• Jigsaw 

Jigsaw is a computer-age puzzle game 
making extensive use of TRS-80 graphics. 
The computer generates a random puzzle 
and puzzle board. Using a combination of 
deductive reasoning and luck you must fit 
the graphically represented puzzle piece 
into place. 

• The IMasters 

Are you a wandering pro or just a 
Sunday golfer who would like to keep in 
practice? Once you're on the green, a 
worm's-eye view is displayed for putting. 




• IMotor Racing 



Motor Racing combines real time 
racing action with advanced graphics 
functions. The graphics and animation 
make Motor Racing fun to watch as well as 

V piay- ^ 

^ Pursuit Games, ^ 
CS-3004 (16K) 

• Stocl( Car Race $7.95 

stock Car Race is a real time racing 
game on a road race circuit. 

• IMaze 

You are timed throughout your run and 
rated on the basis of elapsed time and the 
number of moves required to escape. Nine 
skill levels. 

• Indy Racer 

Indy Racer is a real time racing game 
for the TRS-80. Similar to the popular 
arcade-style driving games. 

• Depth Charge 

As commander of a destroyer, your 
mission is to destroy as many enemy subs 
as possible in this re-creation of the Battle 
of the Atlantic. 

• Kaleidoscope 

This graphics demonstration program 
turns your TRS-80 into a computer age 
kaleidoscope. 




Creative Computing 
■Magazine 

Creative Computing has long been 
Number 1 1n applications and software for 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog control. Complete pro- 
grams with sample runs. Programming 
techniques: sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even some fiction and foolishness. 

Subscriptions: 1 year $15, 3 years $40. 
Foreign, add $9/year surface postage, 
$26/year air. 



Basic Computer Games 



^ 



Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound.[6C]$7.50. 




l\/lore Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 
s. -< 
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The Best of 
Creative Computing 

The first two years of Creative Com- 
puting magctzine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." —American Libraries. [6B] 
Each volume $8.95. 




Computer Coin Games 

Computer Coin Games by Joe Weis- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards In the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book.[10R]$3.95. 



How To Order 

Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1 .00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
in your bank card order toll free to: 
800-631-B112.(ln NJ, call (201) 540-0445.) 
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The Chatterbox 

A TRS-80 Interfacing Alternative 



The CHATTERBOX is a unique packaging combination of the presently 
available COMM-BO I/O Interface for the TRS-80* and an acoustic modem. 
This one box is all that is required to turn even a barebones 4K TRS-80' into a 
full time-sharing terminal. 
The CHATTERBOX includes built-in programmable 50-19200 baud serial port, a Centronics 
compatible parallel printer port, a 300 baud acoustic originate modem, and a spare TRS-BUS 
expansion connector It comes complete with power supply, ribbon cable and connector, user's manual, and 
terminal software for immediate operation. When the modem is in use, the complete data conversion is 
automatically routed to the serial output port where it can be logged on a printer. 
The CHATTERBOX is the only peripheral needed to allow a TRS-80" to communicate with time-sharing systems such as 
IvIICRONET and the SOURCE. 

It is completely hardware and software compatible with existing TRS-80* products and connects either to the keyboard 
connector or screen printer port on the RS Expansion Interlace. Features: Full 8-bit parallel port; RS-232-C serial port (up to 
19,200 baud); Acoustic modem; TRS-BUS connector for future expansion; Connects to Keyboard orE.I.; Includes terminal 
software; Users manual; Power supply. $259.95 
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PRINTERS 





LIST 


OUR 




PRICE 


PRICE 


Centronics 730 


$795.00 


$749.00 


Centronics 730-3 


$895.00 


795.00 


Centronics 737 


$995.00 


$869.00 


Centronics 779 


$1395.00 


$1095.00 


Centronics 779 w/lower case 


$1595.00 


$1195.00 


NEC 5510 SplnWriter 




$2795.00 


NEC 5520 SplnWriter 




$3195,00 


NEC 5530 SplnWriter 




$2695.00 


NEC Tractor-Feed Option 




$250,00 


LRC 7000" (64-col.) 


$405.00 


$299.00 


Okidata Microline-80 


$800.00 


$639.00 


Tractor-Feed Option 


$140.00 


$129.00 



LRC to TRS-80 

LRC to PET, IEEE 

LRC to RS232C, male or female 

730 or 737 to TRS-80 

NEC or 779 to TRS-80 

RS-232-C to RS-232-C, male to male 



$20.00 
$59.00 
$65.00 
$29.00 
$35.00 
$24.95 



GENERAL INTEREST 



SPECIAL 






LIST 


OUR 




PRICE 


PRICE 


BSR System X-10 Starter kit 


$124.95 


$99.95 


BUSY BOX, TRS-80 


$114.95 


$99.95 


BUSY BOX, S-100 


$119.95 


$114.95 


AC-SFK-31 Line Filter 


$24.95 


$19.95 


ISO-2 Line Filter & Isolator 


$56.95 


$49.95 


IS0-2/CBS Line Filter-Isolator 


$70.95 


$59.95 


IS0-7/CB Super Filter-Isolator 


$146.95 


$99.95 


Mini-Flex Diskette File 


$24.95 


$19.95 


CASIO C-80 Calculator Watch 


$49.95 


$44.95 


BONE FONE 


$69.95 


$56.95 


LOGOS-9 Printing Calculator 


$99.95 


$79.95 


CASIO 






C-80 CALCULATOR 


Jl 




WATCH $44.95 


A 


/!^^ 



BONE 
FONE 
$56.95 



(plus $2.50 postage and handling) 



(plus S2.50 postage and handling) 



OLIVETTI 

LOGOS-9 

PRINTING 

CALCULATOR 

$79.95 

(plu« $2.50 postage and handling) 





TO ORDER TOLL-FREE 
1-800-258-1790 

(In NH call 673-5144) 
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POCKET COMPUTER $269 



MODEL II $3599.00 



Model II, 64K RAM 
Model III, 16K RAM 
Model III, 32K Dual Disk 
Pocket Computer w/lnterface 
TRS-80 Color Computer 
TRS-80 Color Computer Expanded 
COMM-80 Interface 
CHAHER BOX Interface 
DISK-80 Interface 
Expansion Interface, no RAM 
Expansion Interface, 16K RAM 
Expansion Interface, 32K RAM 
RS-232-C Board 



LIST 
PRICE 

$3899.00 
$999.00 

$2495.00 
$298.95 
$399 00 
$599.00 
$179.95 
$279.95 
$349.95 
$299.00 
$418.00 
$537 00 
$99.00 



OUR 
PRICE 

$3599.00 

$929.00 
$2299.00 
$269.00 
$359.00 
$519.00 
$159.95 
$259.95 
$339.95 
$279 00 
$339.00 
$399.00 
$89.00 



with interface 



TRS-232 Printer Interface 
16K Memory Kit, TRS-Keypad 
16K Memory Kit, TRS-Exp. Int. 
Upper/lower Mod Kit 
Video Reverse Kit 
CPU Speed-up Kit 
Percom Electric Crayon, w/cable 
TRS-80 Dust Cover (3pc set) 
TRS-80 Computer Case 
TRS-80 Monitor Case 



LIST 
PRICE 

$119.00 

$119.00 

$59.00 



$9.95 

$109.00 

$84.00 



OUR 
PRICE 

$59.95 
$59.00 
$59.00 
$25.00 
$23.95 
$24.95 
$279.95 
$7.95 
$99.95 
$84.00 



~^ 





COLOR COMPUTER $359 



MODEL III $929 



Percom, TFD-100. 40-track 
Percom, Dual TFD-100 Drives 
Percom, TFD-40, 40-track 
Percom, TFD-200, 77-track 
Hardside 40 -Track Disk Drive 
Hardslde 80-Track Disk Drive 
Percom Data Separator 
Extender Card 
2-Drive Cable 
4-Drive Cable 



LIST 
PRICE 

$429 95 
$849 00 
$399.95 
$675.00 
$399.00 
$499.00 

$15.95 
$29.95 
$39.95 



OUR 
PRICE 

$399.00 

$799.00 

$379 00 

$629.00 

$329.00 

$449.00 

$29.95 

$15.00 

$29.00 

$39.00 



TERMS: 



TERMS: Prices and specifications are subject to change. HARDSIDE accepts VISA & MASTERCARD. 
Certified checks and Money Orders; Personal checks accepted (takes 3 weeks to clear). HARDSIDE pays all 
shipping charges (within the 48 states) on all PREPAID orders OVER $100.00. On all orders under $100 a 
$2.50 handling charge must be added. COD orders accepted (orders over $250 require 25% deposit) there is 
a $5.00 handling charge. UPS Blue Label, and Air Freight available at extra cost. 




TO ORDER TOLL-FREE: 

1-800-258-1790 

(In NH call 673-5144) 
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The Doubler ^^ [PtBQCM 



This proprietary adapter for the TRS-80* Model I computer packs approximately twice the 
data on a disk track. 

Depending on the type of drive, you can store up to four times as much data - 350 Kbytes - 
on one side of a minidiskette as you can store using a Tandy standard Model I computer drive. 

Easy to install, the DOUBLER reads, writes and formats either single- or double-density 
disks; you can continue to run all of your single-density software, then switch to double- 
density operation at any convenient time. 

Included with the PC card adapter is a TRSDOS*-compatible double-density diskoperating 
system, called DBLDOS'", plus a CONVERT utility that converts files and programs from 
single- to double-density or double- to single-density format. 

Each DOUBLER also includes an on-card high performance data separator circuit which 
ensures reliable disk read operation. 

The DOUBLER works with standard 35-, 40-, 77- and 80- track drives rated for double- 
density operation. 
$219.95 postpaid. ( $199.95 with $20 coupon. ) 



TO ORDER TOLL-FREE 




IHPRDSlI^ 



1-800-258-1790 



VKA 



6 SOUTH ST., MILFORD, NH 03055 



'" trademark of Percom Datti Company. Inc 
* trademark of Tandy Radio Shack Corporation which has no relalionship to Percom Data Company 




IHPIRDSI 

We buy and sell 
used computers 
and peripherals 
for the TRS-80; 
apple; ATARI 



(603)673-5144 




■JRS-SO, Apple, Atari, and Pet are trademarks of Tandy, Apple Computer, Warner Communications and Commodore, respectively 
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If you 

just bought 

another 

printer, 

boy are 

you gonna 

be sorry. 




MX-80 



The Epson MX-80. It's not just another worked- 
over rehash of last year's model. It's our top-of- 
the-line 80-column printer. It's new. From the 
ground up. And it's the most revolutionary printer 
to hit the market since Epson invented small 
printers for the 1964 Olympics in Tokyo. Don't 
take our word for it, though. Compare. There 
simply isn't a better value in an 80-column printer. 
Period. 

But here's the fact that's going to stand the 
printer world on its ear. The MX-80 sports the 
world's first disposable print head. After it's 
printed about 50 million characters, you can 
throw it away. Because a new one costs less than 
$30, and the only tool you need to change it is at- 
tached to the end of your arm. 

Now that's revolutionary, 
but that's only the beginning. 
The MX-80 also prints bidirec- 
tionally at 80 CPS with a logi- 
cal seeking function to mini- 
mize print head travel time 

The world's first disposable print 
head. It has a life expectancy of over 
SO million characters, yet it's so sim- 
ple, you can change it with one hand. 
And it co.st less than - repeat less than 
-$30. 




and maximize throughput. It prints 96 ASCII, 64 
graphic and eight international characters in a 
tack-sharp 9x9 matrix. And it provides a user- 
defined choice of 40, 80, 66 or 132 columns and 
multiple type fonts. 

We spent three long years developing the 
MX-80 as the first of a revolutionary series of 
Epson MX Printers. We employed the most ad- 
vanced automatic assembly and machining tech- 
niques in existence to produce a printer that is in- 
credibly versatile, remarkably reliable and extra- 
ordinarily inexpensive. It's a printer that could 
only come from the world's largest manufacturer 
of print mechanisms: Epson. 

If it sounds like we're proud of the MX-80, we 
are. Not only does it do things 
some of the world's most ex- 
pensive printers can't do, it'll 
do them for you for $599. 
That's right $599. 




IHPIRDSI 



6 South St., Milford, NH 03055 
TOLL FREE 1-800-266-1780 
(In NH call 673-5144) 
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COMING IN THE NEXT 
ISSUE OF SOFTSIDE: 



MINER 

Go into the gold mines in this 1860's simulation. 



MINI-GOLF 

Bank off the back wall for a hole in one. 

LONG-DISTANCE 

Use this program to keep your phone bill down. 

TANKS-A-LOT 

Are you a better tank commander than your friends? 

CHANGING HEARTS 

Try this challenging puzzle for Valentines Day. 



LELELinC 1 



From 



ATARP 



SYSTEM DIAGRAM 

m 



^W^ 



Additional RS232C 
Compatible Ports 




CARTRIDGE 



CARTRIDGE 





TeleLink™ I Is a cartridge which provides the 
software necessary to send and receive data over 
standard telephone lines. It is used with the ATARI® 
830'" Acoustic Modem. TeleLink I may be used to 
communicate with another ATARI Personal 
Computer System, or any other computer system 
using a compatible modem. The ATARI 830 Modem 
is fully copatible with the Bell 103A Modem and 
other similarly operating modems. To use the 
TeleLink I cartridge, you must connect the ATARI 
850'" Interface Module and the ATARI 830 Modem to 
either the ATARI 400'" or ATARI 800'" Personal 
Computer System. This cartridge may be used in 
conjunction with any of the ATARI Printers (ATARI 
820'", ATARI 822'", ATARI 825'"), to provide a hard 
copy printout of your telephone conversation. 

TeleLink I provides a direct link to the time- 
sharing systems, computer data bases, and 
information utilities such as CompuServe and The 
Source. 
Cartridge $24.95 




Atari 400 ™ 



Atari 800 ™ 



TS€:IHPRDSID€ 



6 South St ,Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



A 
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REVIEWS 




T80-FS1 Flight Simulator 

by Phillip Case 



The airspeed approached 60 
M.P.H. A little downward thrust 
on the elevator, and the ground 
slowly dropped away as I climbed 
into the heavens. After reaching a 
cruising altitude of 3000 feet, 1 
rolled around 90 degrees to check 
the airspace for traffic before 
practicing any acrobatic 
maneuvers. When the compass 
showed 1 80 degrees, I levelled out 
and flew south, so as not to be 
distracted by the mountains to the 
north. Lack of concentration now 
would spell disaster. Putting the 
plane into a spiral power dive, I 
watched the ground spin like a 
merry-go-round. Adjusting the 
ailerons to stop the spin, I pulled 
back on the elevators to halt my 
descent and level out. However, 
the enormous lift generated by the 
high speeds snapped off the wings, 
and I crashed a few moments later. 

How can I write about this 
experience after an accident, like 
that? Well, let me tell you about 
the new T80-FS1 Flight Simulator 
from Sublogic. As one who has 
studied for his pilot's license, I was 
very impressed with the realism 
demonstrated by the program. 

The idea of the package was 
simple. Flight simulators today 
cost thousands of dollars and are 
expensive to operate, but with the 
prevalence of microcomputers 
today, the answer was obvious: 
Simply write a program to simulate 
the flight of an airplane, in this 
case the Piper Supercub 150. Did I 
say simply? Well, compared to the 
space shuttle maybe, but it was 
complicated enough to make me 
practice for a week before I could 
land smoothly. 

The display is broken into 
several parts. The center is an 
outside window providing a 
breathtaking view out the front of 
the plane. Wrapped around the 
screen are your flight instruments, 
which show the altitude of your 
plane at any instant. 

Sound unrealistic? This editor 
honestly puts this program down 
on my Ust of five best programs 
ever written for the S-80, which I 



like to think is saying something, 
in that 1 have reviewed almost 
everything I can think of that's 
marketed by TSE. That's well over 
300 programs! 

The only fault 1 can find is not 
with the program, but with 
Sublogic. The program is not 
available on disk. 1 suspect the 
reason the program is sold only on 
cassette is because the level of 
protection decreases on a disk 
package. You see, Sublogic has a 
machine language auto loader 
which automatically loads the 
program, and the loader is 
modified by the data it loads, 
making the program very hard to 
copy. 

I use a disk system. For the sake 
of convenience, I like to transfer 
my cassette programs to disk. 
When necessary, I have been able 
to decode almost any loader I have 
run across. My successes include 
"Microchess," "Duel 'N' Droids," 
and the complete Radio Shack 
line. Sublogic 's loader, however, is 
the one I bow to and walk away 
from. There is a good side to this, 
however, the pirating percentage 
should be very small. 

If you're after a realistic S-80 
flight simulator, I recommend the 
Sublogic package. It's a 
GOOD'UN!!! 



DOGFIGHT 

by Dave Albert 

Eddie Rickenbacker, move over. 
There's a whole new generation of 
budding young pilots itching to 
send the enemy down in flames. 
Gone are the leather helmets and 
flight jackets of yore, the fabric 
and wire and wood that first 
turned the air into a battlefield. 
Now the fighting is done in the 
living room in cold blood and Hi- 
Res graphics. 

Instead of flying a Spad, 
Nieuport, Mustang or Phantom, 
your Apple is the vehicle of 
mayhem. The enemy flies the same 
model, only in a more random 
fashion. And then there's the 
helicopters. . . 

"Dogfight" by Micro Lab is an 
arcade type game for one or two 
players, playing either in 
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cooperation or opposition. Using 
either joysticks or paddles, the 
players are set up against 
increasing numbers of enemy jets 
or helicopters. The players are 
always equipped with five jets, 
which they can only use one at a 
time. The jets can fire only, while 
the helicopters spew out bullets in 
every conveivable direction. The 
paddles control the direction of the 
jets, which move at a constant 
speed throughout the game. The 
fire button controls, you guessed 
it, the firing of bullets. 

At the beginning of the game, 
you face only one enemy fighter. 
If you successfully destroy that 
fellow, then you will face two 
fighters, or one jet and one 
helicopter. Each successive level of 
difficulty increases both the speed 
of the action and the number of 
the enemy that you face. How far 
you get depends upon how astutely 
you dodge in and out of the melee. 
Luck plays a mojor role, as far as 
we can determine. 

If you shoot down an enemy, or 
if you yourself are shot down, 
there is a mechanism whereby the 
pilot can bail out and float safely 
to the ground. If the parachutist is 
gunned down in the air, that's 
it. . .finis. If not, he magically 
reappers in a fresh plane to plague 
you to no end. 

If you are incredibly successful, 
and that is intended as an 
understatement, you will rack up 
10,000 points worth of enemy 
aircraft and pilots. At that point, 
the program will generate a secret 
message informing you that you 
can apply for a Dogfight Ace 
plaque from Micro Lab. Despite 
intensive field tests by the editorial 
staff here at SoftSide, we have yet 
to come within 8,000 points of 
discovering what that secret 
message says. 

"Dogfight" is an amusing 
program, with a wide variety of 
playing options. One player can 
take on the enemy, or two. Or two 
can fight together or against each 
other, complete with aggravation 
of a foreign enemy trying to send 
them down in flames all the while. 
The program seems to hold up well 
to constant playing, with the 
boredom factor being quite low. ^ 
All in all, a tasty game package, ^f 
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The Software Exchange Order Form 



DESCRIPTION 



MEMORY TYPE 



PRICE 



SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 



Check 
Money Order 



CHARGE ACCOUNT NUMBER 



ADD handling charges 

(Fortign ordera minimum $5.00 handlliig) 

Additional charges 
TOTAL 



$1.00 







Signature.. 



.Exp. Date. 



.Inter. No.. 



Name- 



Address. 



City. 



.State. 



.Zip. 



MAIL TO: The Software Exchange 
6 South St. 
Mllford, NH 03055 



Special prices In effect 60 days from mallino 



or, CALL TOLL FREE 
for Orders Only 
1-800-258-1790 
On NH call 673-5144) 



Level II software available on disk for a $5.00 (per ordsi) medium charos. This extra fee Is for any number of programs transferred to disk from tspe 
wtwn you order. If ttie order exceeds the capacity of a single disk, we abeorb the extra cost. 

Be sure to Include handling charge and any additional charges when figuring your total. All in house ordera shipped within 4 working days. 

All prioas are subfect to change wHhout noUee. We ate not leeponslUe lor typographical enore, Indudlno bieocreet pricea. 

AU. SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk property protected for free 
replacement. Send to the attention of Bette Keenan, Customer Service Representative: please enclose s brief note and your name and mailing 
address with the software. 

ALL SOFTWARE SOLD ON AN kMS BASIS WTTHOUT WARRANTY. TSE assumes no liability for loss or damage caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors, Including but not limited to any interruption In 
service, loes of businoaa or anticipatory proflta or consequential damages rssulting from use or operation of such equipment or software. 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
Drograms! All you need to 
<now is in... 



ALL 

ONLY 

$19.95 

plus $1 shipping 




INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 



^^^^W^ 



VISA 



ORDER TOLL-FREE 

(In NH call 673-5144) 

1-800-258-1790 

The SaHware Exchange 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



Processing problems 
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Apple PIE 



+ 



Formatter 



Apple PIE (Programma International Editor) 
and FORMAT (text formatter) offer full strength 
solutions to today's word processing problems. 
These versatile, powerful programs provide 
document preparation and word processing 
capabiUties previously found only on much larger 
computer systems. 

PIE is a general purpose, full screen editor 
that uses control keys and function buttons to 
provide a full range of editing capabihties such as 
search and replace, delete, copy, insert, move. 
Changes may be made directly anywhere on the 
screen and are shown as they are performed. 

FORMAT uses simple instructions 
embedded in the input text to describe the desired 
appearance of the final document. It handles 
centering, underiining, indenting, page numbering, 



margins, headers, footers, even form letters, and 
includes a proofing capability. 

These high-quality, cost-effective programs 
come with comprehensive documentation and run 
on a 32K Apple II. They are available through j^ 
your local computer store or direct from 
Programma International, Inc. at the 
introductory price of $79.95*. 

VIDEX VERSION T.M. 

DOUBLE VISION T.M. 

SUPR TERM VERSION T.M. 

STANDARD VERSION 
♦December 1, $129.95. 

PROGRAMMA 

3400 Wilshire Boulevard 

Los Angeles, California 90010 




\^ 
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.^ 
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Simple enough for the beginner. Versatile enough for the professional. 



